N 
— 
=) 


aaaa 
aaaa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aaaaaaaaaaaaaa 
aaaaqaaaaaaaaaaa 
j 
mn YNnwn 
nw WMNnwW 
nn nn nn 
mw mw nn 
nw nn nw 
mn mn nw 
nn mn nw 
mown nw nn 
MWWnm mw 
MMW nn 
anaanaaaaaa 
aaoaooaaoaaoaa 
aa aa 
aa aa 
aa aa 
aa aa 
ans aa 
aa aa 
anaonaaaannaaaaaa 
Sooo oAaaAAoaaAaaaaam 
| 
i 


DDDDDDDD 
DDDDDDDD 


aa 
aa 
aa 
aa 
aa 
aa 
aa 
aa 


VBYYVYVYVUYUUUY 
VVYUVYYYUUWU 


LLLLLLLLLL 
LLLLLLLLLL 


**F 1LE®*1D**CMODSSDSP 


Re 
CMODSSDSP = CHANGE MODE SYSTEM SERVICE DISPATCHER 15-SEP-1984 23:53:36 VAX/VMS Macro V04-00 Page 0 
Table of contents 


(1) 487 Macros for Loadable Services 

(1) § 9 CHANGE MODE TO gReCUTENE DISPATCHER 

1) 7 HEXCP = Inhibited CHMK or CHME code handling 
(1) 78) ASTEXIT SYSTEM SERVICE 

(1) 14; HANGE MODE DETECTED ERROR HANDLING 

(1) g Filtered Change Mode to Kernel Dispatcher 

(1) 991 CHANGE MODE TO KERNEL DISPATCHER 

(1) 1112 SYSTEM wget VECTOR DEFINITION 

(1) 1734 REGION 2 OF SYS. SERV. VECTOR DEFINITIONS 

(1) 01 ILLEGAL CHME OR CHMK CODE VALUE HANDLING 

(2) 29 EXESLDB_SYNCH = Synchronize Loadable Services 


d 7 
CMODSSDSP = CHANGE MODE SYSTEM SERVICE DISPATCHER 15-SEP-1984 23:53: AX/VMS 4- 
v04 3-3 Ep 1986 63:20:39 SYS SRCICHODSSDSPLMAR; 1 _ 


sNLIST CND 
~ TITLE Het - CHANGE MODE SYSTEM SERVICE DISPATCHER 
IDENT ‘v04-000' 


MARAARAARAAAALALASALALALAALALELASE LEAS ASAE ESSE SEER ERE E ARREST SEER EERE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


& 
® 
© 
& 
J 
© 
UCH L TH * 

ON OF THe ABOVE COPYRI cut NO OTICe, THIS SOFTWARE OR ANY OTHER * 
OPIES THEREOF oi NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
THER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
Y 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AN OULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
® 

a 

® 

® 

® 

® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


eeeeeeeeeeeeeeeeeeees 


TI TA TIT TI TIAA TIT i Titi i titi iti titi iit iti titi iti iitiiiitiiiiiiiiiiitit, 
D. N. CUTLER 22-JUN-76 
MODIFIED BY: 


v03-041 poll Lawrence J. Kenah 27-Jun-1984 
to entry mask for SCANEXH system service. 
v03-040 we L. Mark Pilant, 4 Ay tine. 9:21 


change "scoxpno from an exec mode service to a kernel mode 
service. This was made necessary by the Se uRPRO (internal 
entry point) interface change. 


v03-039 m™mD0250 Reg bus 27-Feb-1984 17:49 : P 
aoe pases for $M ACCESS “iotell eaten specific accessibility 
routin 


v03-038 pears David Solomo 0-F eb-1984 
iaplenent os new ges'on for RMS echo ar to SYSSOUTPUT 
(vs V035-019). Echo is now w perfor med aller’s mode AST 
routine declared in RMS\RMSEXRMS. AX INCB/DECB of FAB/RAB 
busy bit to BISB/BICB, now that we have room. 


V03-037 SSA0004 Stan Amway 28-Dec-1983 
For SSETPFM, changed number of parameters from 1 to 4 
and changed entry mask to save R2-R11. 


v03-036 TMK0002 Todd 19-Nov-1983 
The entry point for shéctore can ng longer be reached as a 
branch destination from the executive mode dispatcher. 
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~SEP=1984 SYS.SRCJCMODSSDSP.MAR; 1 vO! 
74; Wig ret wg parse syreg lg has been placed within 
5 3 this module, and a JMP 13 .me rom it to the real system 
§ : service entry point (EXE sneefoibs. 
4 : Also, change the entry mask for SYSSTRNLOG, so that R8 is 
43 : now saved. 
1; v03-035 TMK0001 Todd ™ 22-0c t-1983 
0 ¢ 3 The entry points for SF INISH RDB and SIDTOASC can no 
8 3 Longer be reached as branch destinations from the executive 
4; spate tcher. Temporary entr points (EXESFINISH_RDB and 
5 3 EXES1DTOA SC) have been Laced within this module, and from 
§ ; P is made e real s gysten service entry points 
44 i ; CEKESSFINISH: RDB a EXESSIDTOAST) 
909 9; V03-034 PRBO254 Paul Beck 15-Sep-1983 14:49 
00 90 ; (1) Correct the way synchronous CJF services are defined. 
444 4. ; (2) Define loadable RUF services. 
$009 38 : V03-033 wMc0029 Wayne Cardoza 31-Au vp 19 
444 94 ; Loadable services should not be unconditional y yon ibited. 
4 t2 : Aga an alternate CHMx argument to LDBSRV 
$000 39 : V03-032 DWwT0125 David W. Thiel 22-Aug-1983 
9444 4 : Remove CHECKARGLIST and calls to same. 
0000 100: VO3-031 MKLO167 ary Kay Lyons 19-Aug-1983 
8000 13) ; Generate tmadebis service vector for CJFS$GETCJI. 
0000 198 : v03-030 kBT0578 eith B. Thompson 8-Aug-1983 
8608 Ie 3 Add parameter to SF ILESCAN 
0000 106: v03-029 RASO178 Ron Schaefer 29-Jul-1983 
44 107 ; Add code to detect the AST/non-AST RMS FAB/RAB race 
B28 108 ; condition where an RMS pperes ten is initiated while 
000 109; the user FAB/RAB is still waiting for completion of 
4 119 : previous operation. 
O88 6 ; v03-028 wMC0028 Wayne Cardoza 29-Jun-1983 
838 V7 : Add CJF services. 
$00 115 ; V03-027 wMC0027 Wayne Cardoza fo har 1985 
000 116 ; Make old logical name services ‘‘all mode’ 
$38 i : Changes to image activator vectors. 
00 119 : V03-026 JWHO222 Jeffrey W. Horn 2-May-1983 
3 120 ; Add LOBSRV macro for vector definitions of loadable 
: 1; services. 
p 1 : ; V03-025 DMW4035 DMWalp 26-May-1983 
! : 5 Intergate new logical name structures. 
1 $ ; v03-024 LMP0109 Mark Pilant, 28-Apr-1983 15:53 
127 ; Make + orig an EXEC mode system service to bilow examination 
: 8 : of various system data structures. 
130 : V03-024 RASO147 Ron Schaefer 28-APR-1983 
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yose800 ams ety 7 83:28:39 SYS.SRCICMODSSDSP.MAR; 1 - aoe vO4 
Add SFILESCAN. Add R8 and RY to SSETPRN register mask. | 
v03-023 sLVOZ44 Jake VanNo 27-APR=1983 | 
Add SBRKTHRUW. Change SBRDCST to all mode service. 
SBRDCST now uses SBRKTHRU to do real work. | 
v03-022 LMP0099 L. Mark Pilant, 13-Apr-1983 19:15 | 
Add the SCHKPRO system service. 
v03-021 ACGO319 Andrew C. Goldstein, 21-Mar-1983 13:51 
Add $GRANTID and SREVOKID services 
V03-020 JLV0234 Jake VanNoy 1=MAR-1983 
Add BRKTHRU service. 
v03-019 RASO120 Ron Schaefer 25-Feb-1983 


Add suppor ‘:o echo 9¥ SYSSINPUT to SYSSOUTPUT. 

This involves examini the return code from RMS for $GET; 
if the special me pty mss ae ECHO snes returned to users) 
is found, then create a on the caller's stack and 
execute a $PUT hee BM i echo the Line. 

A certain amount of RMS synchronization code was 

shuffled around in order to make room for this. 
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v03-018 ACG0317 Andrew C. Goldstein, 22-Feb-1983 15:16 
Fix off-by-one in kernel arg vector 

V03-017 RSHOO004 Sco 10-Feb-1983 

Added $ASCTOID, SEINiSHe "RDB. "ond SIDTOASC to. system service List 
V03-016 RNGOO16 Rod N. Gamache 1-Feb-1983 

Added S$GETLKI to Sate service List 
v03-015 wMC001 <tr Cardoza 12-Jan-1983 

Put eae ooatdnnke ly deleted space holder for RMS synchronization. 
V03-014 DmMwW4023 nef 7-Jan-1983 

Added SCRELNT, SCREL SDELLNM and $TRNLNM 
V03-013 KDM0033 Kathleen D. Morse 13-Dec-1982 

Correct usage of an interlocked Tnstruction to flush 

the hardware cache queue. 
V03-012 ROW0146 Ralph . . nee 6-DEC-1982 

Insert routine he oder ents for INHEXCP, CHECKARGLIST, 
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and EXESCMODKRNLX (MPS$SCMODKRNLX), Move things around so 
that EXESCMODKRNL (MPS$CMODKRNL) header comments are anal 
EXP SCRODRENL CHPSSCHODKRNLD and ASTEXIT consents are n 
ny EXIT. Make basic kernal-mode .PSECT definition for *YSCMODK 


NOUS AR SO OOONAU EWN 0 OO NAME WIN O OO NOAM EW  OOONOUE wir 


ooo 


PSCMOD1 immediately after executive mode code so that new 
code can be inserted in a way that gresecves routine headers 
est definitions. Sockeye nos 145, 


SS ac évib T so that it is assembled only for MPCMOD and 
so that ocated Eetere & ACCVIO_RET. Change PCB address 
Lookup at T ERDSE in MPCMOD to use CTLSGL_PCB so that it works 
correctly regardless of which processor é@xecutes it. 
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v03-011 ROWO145 Ralph 0. Weber 29-NOV-1982 
nove cae serch IN (and MPSSEXCPTN) to before ASTEXIT (or 
MPSSASTEXIT) in an attempt to make branch destinations in 
EXESCMODKRNL reach. 


Add logic to MPCMOD that oj ious the primary to execute 
secondary-specific code, w 


v03-009 M 


thout turning into a secondary. 


LJ0099 Martin L. Jack, 20-Oct-1982 19:42 
omplete V03-002 by correcting mode and argument count of 
SNDJBC and removing temporary stubs. 


v03-008 R1IHO0001 Richard I. Hustvedt 1=-Jun-1982 
Correct handling of AST queue by secondary processor to 
avoid losing some AST notificatio 


ns by incorrectly computin 
PHDSB_ASTLVL. Foes dit 


v03-007 KDM0018 Kathleen D. Morse 30-Sep-1982 
Add MPSWITCH Logic to create a kernel system seryice 
dispatcher for the secondary processor of an 11/782. 
v03-006 $TJ3028 Steven T. Jeffreys 26-Sep-1982 
Added SERAPAT system service vector. 
v03-005 DWT0058 David Thiel 11-Aug-1982 
Eliminate use of R2 while waiting for service 
completion. 
v03-004 JwHO001 jettrey W. Horn 26-Jul-1982 
Add new RMS service, RMSRUHNDLR, an un-documented service 


which acts as the Recovery Unit handler for RMS. 


V03-003 PHLO102 Peter H. Lipman 16-Jul-1982 
Fix new SYNCH bogie to always return SS$_NORMAL, 
not access IOSB if error from service, and return 
error status from SSETEF if event flag cluster went away 


v03-002 PHLO101 Peter H. Lipman 17-Jun-1982 
Add $SYNCH system service and fix S$Q10W and SENQW to use the 
new code for waiting for the combination of EFN and I0SB 
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Improve readability of conditionals. 


Add SGETDVIW, SGETJPIW, SGETSYIW, SSNDJBC, SSNDJBCW, and 
SUPDSECW. ALL the waiting versions use common code. 
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SRy* MODE SRVNAME ,NARG , MASK 

SRV MODE SRVNAME , NARG, MASK , NOS YNC 
“ENDC =; MPSWITCH 

LIFT 

“BLKL 2 

bith 

SRV MODE SRVNAME , NARG, MASK 

-ENDM © GSYSSRV 


GCOMPSRVB - GENERATE COMPOSITE SYSTEM SERVICE ENTRY VECTOR BEGIN 
GCOMPSRVB SRVNAME ,REGISTER_MASKLC ,PREF IX] 


WHERE: 
coveare - SERVICE NAME LESS ANY PREFIX (SYS$, E 
REGISTER_MASK = SYMBOLIC REGISTER MASK, E.G 410 
PREFIX =" IF SUPPLIED, THE PREFIX FOR THE SERVIC 
IF OMITTED, ‘SYSS$'' IS ASSUMED. 


CRO 9 a oy 1 aa »REGMSK , PREF IX=SYS$ 


CT pr eT 1BSY QUAD 
T $$$000,QUAD 
QUAD 
LIBSWITC 

NO 


H 
T_BLANK, <SRVNAME>,- 
"PREFIX" 
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COMPSTRT 
weentce’ <REGMSK>,=- 


soseeeneee tHe © Ge eee weeeeeee 


E 
F 
E 
Dd 
I 
F 
N 
F 
ABL LSB 
F 
R 
D 
D 
D 
D 


WORD <REGM 

ENDC 

ENDC 

ENDC ;MPSWITCH 
ENDM GCOMPSRVB 


GCOMPSRVE - GENERATE COMPOSITE SYSTEM SERVICE ENTRY VECTOR END 
GCOMPSRVE QUADWORDS 


WHERE : 
QUADWORDS - NUMBER OF QUADWORDS TO RESERVE FOR VECTOR 
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38 SYS. SRCICMODSSDSP.MAR; 1 (1) 
at NDF .MPSWITCH 
c1F NDF »RMSSWI CH 
“IF DF ti BSWITCH 
“BLKQ QUADS 


vIFF 
COMPSIZE=.-COMPSTRT 
. GE , QUADS *8-COMPS1ZE 
-BLKB StkD Sess =COMPSIZE 
-ERROR : VECTOR EXCEEDS ALLOCATED SIZE ; 
[DSABL LSB 
*ENDC 


*ENDC 
[ENDC =; MPSWITCH 
-ENDM GCOMPSRVE 


SRVK = GENERATE ENTRY FOR KERNEL MODE SERVICE 
SRVK SRVNAME ,NARG ,MASK 


.MACRO SRVK, SRVNAME ,NARG, MASK 
“IF NDF 5 RMSSWITCH 
RPSWITC 


wIF 
CMKSC_ * SRVNAMES=KCASCT 
IFF MP SUI TCH DEFINED 
CMKSC_ *SAVNAME=KEASCTR 
CHM SRG NAME 
RET 
-PSECT YSCMODKN, BYTE 
= 
ASSUME NARG LE 127 
-PSECT _YSCMODKX BYTE 
ASCTR 
"BYTE. MASK 
-PSECT YSCHODK .BY TE 
“SIGNED_WORD EXE$'SRVNAME-KCASE+2 
.IFTF ~;MPSWITCH 
SRVNAME=KCASCTR 
KCASCTR=KCASCTR#1 
.ENDC =; MPSWITCH 


-EN 
-ENDM = =SRVK 


DOOCOOOOCOOODWDWODODODOoy YN 
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; SRVE - GENERATE ENTRY FOR EXECUTIVE MODE SERVICE 


~MACRO = SRVE,SRVNAME ,NARG,MASK 
NDF, ITCH 


“LE 
IF NDF -RMSSWITCH 
CMESC_"SRVNAME=ECASCTR 

CHME SSRUNAME 


Fy oe ot ot ot ot ot ot at at at at ae ae ee das oat) 
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YSCMODEN BYTE 
CTR 
arr ie 127 
YSCMODEX ,BYTE 
CTR 
MASK 
Y 
_# 


SCMODE ,B ere 
ORD EXES* SRVNAME~ECASE+2 


——+4 ms tM 


2 
+ 
= 


-MPSWITCH 
SRVE 
MACROS FOR GENERATING RMS SYSTEM VECTORS 
.MACRO RMSSRV SRVNAME NARG=1,REGS=<R2,R3,R4,R5,R6,R7,RB,RI,RI0,R11>, = 


MA SYNC= 
GSYSSRV SRVNAME , R, wake, <REGS>, MASK , NOSYNC 
.ENDM = RMSSRV 


| 
3 SRVR = GENERATE ENTRY FOR RMS SERVICE (EXEC MODE) 
‘ .MACRO SRVR SRVNAME ,NARG MASK ,NOSYNC 
TIF NOF ,MPSWITCH 


IF NDF -RMSSWITCH 
CMESC_'SRVNAME=RCASCTR 
CHME = #SRV VNANE 


IF EQ C 
IF GT <.+2-RMSSYNC>=127,- 
RM SSYNC=RASUBR ;RESET BRANCH DESTINATION 
“BRB, RMSSYNC 
ker 


- ENDC 

-PSECT YSCMODEN,BYTE 
= 

ASSUME NARG LE 127 


-BYTE  NARG 

-PSECT YSCMODEX,BYTE 

-=RCASCT 

“BYTE MASK 

-PSECT SSSRMSVEC BYTE ,NOWRT 

- SIGNED RD  - RMSS$'SRVNAME-RCASE+2 
SRVNAME=RCASCTR 
RCASCTR=RCASCTR#1 

.ENDC = ; MPSWITCH 

-ENDM = SRVR 


Fr at et et at et al el al ak al tek al ee eee al tek a eka ek a ek ek ak et et at ak ek ek ek ek ed et ek et 


SNIP AAA AAA AAO MAMMA BB BB WINN AI AAAI AIORPPPRPRINN— 


PEA OOD NA NE WIN OOD NAME WIN SO OD NA UE WIN 0 ODA NEW OO OD NOUS WOO 


; SRVALL = GENERATE ENTRY FOR ALL MODE SERVICE 


. a = CHANGE MODE SYSTEM SERVICE DISPATCHER "3 tae 9 §3: 23: 3 anives 8 Rey, aero y 


- MACRO NDE APEWLTCH »NARG ,MASK 


“IF NDF Ans SUT TCH 
JMP “@#EXES' SRVNAME+2 


"ENDC =; MPSWITCH 
sENDM = SRVALL 


PPL LLL EEE SE 


fo Je te ote Te ls tay el 
UEW OO OOnoe 
fe 


0 


a 7 
= CHANGE MODE SYSTEM SERVICE DISPATCHER 197 $60- 1386 $3:23:39 yaxeves Ma 


or Loadable Services 


= 
~ 


BP WW ANA AARIIRIRINININININININ — BODO OOOOO000000000000M000 


BROOD NDP ANE WN * 0 OD NIA NE WIN OOD NIA MEW 0 OD NOAM EWN 3 0 OD NOUS WO O@ 


Oooooe 


PREF IX" *SRVNAME : 


SoOOCOSCOSOOOOOOSOOOSOOOOOOSOSoOSO 


ee ee eau al eal al altel eal al alta al eaneal eal eareal al ean al al al ome oat ot ont ee et oat oe et oat ae ae 
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P-1 
-SBTTL Macros for Loadable Services 


LDBSRV = Generate Loadable Service Vector 


-o 


cro 
SYS.SRCICMODSSDSP.MAR; 1 


LDBSRV PREFIX,SRVNAME ,MODE ,REGS,SYN_EFN,SYN_IOSB,ALT_CHMX 


Where: 

PREFIX - Prefix for system service vector entr 

SRVNAME - Service name less any prefix (SYS$,CJ 

MODE - Mode designator for service (K,E,ALL) 

- Register save List 

SYN_EFN - Event flag argument number for S$SYNCH 

SYN_I0SB - I0SB argument number for $SYNCH 

ALT_CHMX = Use same CHMx number as this service 
-MACRO_ LOBSRV,PREFIX,SRVNAME ,MODE ,REGS,SYN_EFN,SYN_IOSB,ALT_CHMX 
1F NOF RMSSWITCH 
IF NDF ,MPSWITCH 

IF DF, ,LIBSWITCH 

-PSECT $$$0000,QUAD 

«ALIGN QUAD 

IF BLANK ova ore 

-IFF 

~BLKL 4 
- ENDC 


*" .PSECT $$$000, QUAD 
»ALIGN QUAD 


. WORD 
SRVNAME ° 


<REGS> 
MASK = “M<REGS 


> 
LVEC_"MOBE PREFIX,SRVNAME,SYN_EFN,SYN_IOSB,ALT_CHMX 


. END 
-ENDC =; MPSWITCH 
-ENDC =; RMSSWITCH 
-ENDM = LDBSRV 


LVEC_K = Kernel Mode Loadable System Service Vector 


LVEC_K PREFIX, SERVICE,EFN,10SB 


.MACRO LVEC_K, PREFIX, SERVICE, EFN, 10SB,ALT_CHMK 

"IF BLANK ALT CHMK 

pg CRBC." SERVICE = PREFIX'KCASCTR 
CMKSC_"SERVICE = ALT_CHMK 


CHMK #SERVICE 
.1F NOT BLANK EFN 
PUSAL 


#EFN 
PUSHL. #10SB 
JMP @#EXE 


$LDB_SYNCH 


= CHANGE MODE SYSTEM SERVICE DISPATCHER 15-SEP-1984 23:5 AX/VMS - 
Macros A. Loadable Services 3: -SEP-1984 i 83: 23; 4] SYS.SR cj? MOD Soskbep nar: 


LFF 
-ENDC 
TIF BLANK ALT_CHMK 
ICE ="PREF IX'KC 
Shey ig KCASCTR = PR 
SERVICE = ALT_CHMK 
SENDM = LVEC_K 


ASCTR 
EFIX'KCASCTR + 1 


LVEC_E = Exec Mode Loadable System Service Vector 
LVEC_E PREFIX,SERVICE,EFN,10SB 


Facet act Ce -SERVICE,EFN, 10SB,ALT_CHME 
CMESC_ SERVICE = PREFIX'ECASCTR 


F 
CMESC_*SERVICE = ALT_CHME 


CHME #SERVICE 

- IF NOT BLANK EFN 
PUSAL #WEFN 

PUSHL #10SB 

JMP @#EXESLDB_SYNCH 


COOOCCCOCCOOCOSOOCOSOCCOOCOOCOOOOOOOOOOOOOO 


SOooOoCooooooooooooo 


COOSCCSCOOCSCOCOCOCOOOCOCOoOOOSOOOoOOOOCOOoOOoOOoOSoOO 


OOOQOCoOoCoOooOooS 


OOCCOCCOOSOOOOOOOOOOoOoOSoOoS 
SOOOCOCOCSoOOoOoOoOooSoo 


CSoooooooeo 


ECASCTR + 1 


. N 
-ENDM ice 


LVEC_ALL = Mode of caller Loadable System Service Vector 
LVEC_ALL PREFIX,SERVICE,EFN,10SB 


§ -MACRO LVEC ALL PREFIX, SERVICE .EFN, 10SB,ALT_CHMK 
0 jmp a#EXES SERVICE 
1 -1F NOT_BLANK EFN 

; NERROR ; SYNCH NOT ALLOWED FOR ALL-MODE SERVICES 
4 

4 

4 


ENDC 
“ENDM = LVEC_ALL 


+ GLOBAL SYMBOLS 


sea 


= CHANG 
Macros 


00000014 $008 £09 EXESC_CMSTKSZ==485 


for 


ODE SYSTEM SER 
Loadable Serv 
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;NUMBER OF LONGWORDS IN DISPATCH CALL FRAME 


re 


eee ee 
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SPATCHER 15-SEP-1984 23:53:36 YAX/VMS Macro V04-00 Page 13 
PATCHER ~SEP-1984 63:40:39 eysvencienonsspspoman:1 "29% U3, vo 


~SBTTL CHANGE MODE TO EXECUTIVE DISPATCHER 
EXESCMODEXEC = CHANGE MODE TO EXECUTIVE DISPATCHER 


THIS ROUTINE IS AUTOMATICALLY VECTORED TO WHEN A CHANGE MODE TO EXECUTIVE 
INSTRUCTION IS EXECUTED. THE STATE OF THE STACK ON ENTRY IS: 


CMODSSDSP = CHANGE MODE S Vv 
vou-000 j 


CHANGE MODE 


m—~< 
=m 
m— 
aonm 
cz 
—wm 
<m 
ma 
on 
=o 
wm 
ro 
4 


T 


sq 


Ooo 


INPUTS: 

O(SP) = CHANGE MODE PARAMETER CODE. 

4(SP) = SAVED PC OF EXCEPTION. 

8(SP) = SAVED PSL OF EXCEPTION. 

bred = NUMBER OF SYSTEM SERVICE CALL ARGUMENTS. 


polo folololololololololo) 


FIRST ARGUMENT. 


4*N(AP) = N'TH ARGUMENT. 


POPPER SSS tm OO 


MEUM = OOODNAUE WN 9 ODNAUES WN OOONOUS WOO 


PAAAAA AAAS AAAAAAAAAAAAAAAOSAAAAAAOAAOAAQS 


; : 
a0) 
0 0 
$00 
0000 
0000 
0000 
0000 : OUTPUTS: 
0000 
0000 63 eeeTBSeee 
0000 63 
9000 ; NOTE: 
0000 63 DISPATCH TO RMS ROUTINES ASSUMES THAT R3, R4, & RB ARE NOT DESTROYED 
9000 : BY THE THE SERVICE EXIT CODE FOR SUCCESSFUL RETURNS. 
0000 
00000000 3 .PSECT YSCMODEX,BYTE ;START OF THE MASK TABLE 
0000 640 B_EMASK: 
00000000 64 .PSECT YSCMODE,QUAD 
9000 42 EXACCVIO: ;CHANGE MODE TO EXEC ACCESS VIOLATION 
5D «(SE Oo 900 4 MOVL SP, FP [SET FP TO POINT TO CALL FRA 
0035'8F 50 81 000 4 CMPW =—s- RO HRCASCTR [1S THIS A BUILTIN OR RMS FUNCTION? 
7A 1— 0008 64 BGEQU EXEDSP =NO, NOT NECESSARILY ACCVIO 
0038' 31 OO0OA 646 BRW ACCVIO_RET : 
000D 647 EXESEXCPTNE:: TEXECMODE SYSTEM SERVICE EXCEPTION 
0000 9000 648 .WORD 0 [NULL ENTRY MASK 
OOF 649 BUG CHECK SSRVEXCEPT [NON-FATAL EXCEPTION IF IN EXEC MODE 
51 04 AC 00 O13 650 MOVE — CHFSL_SIGARGLST(AP),R1 :GET ADDRESS OF SIGNAL ARGUMENTS 
017 651 SEXIT_S CHFSL~SIG_NAME(R1) [AND EXIT WITH SIGNAL AS ST 
0 1 63¢ EXINSARG: [CHANGE MODE TO EXEC INSUFFICIENT ARGS 
0035'8F 50 B61 1 4@ CMPW ss: RO, #RCASCTR [IS THIS A BUILTIN OR RMS FUNCTION? 
5c IF 0 : 654 BGEQU EXEDSP [NO, NOT NECESSARILY INSARG 
0025" 31 00 655 BRW INSARG : 
028 696 SALIGN QUAD 
65 EXESCMODEXECK 
50 03000000 8F 08 AE cB 638 BICLS 8(SP),#PSLSM_CURMOD.RO ;CHECK THE PREVIOUS MODE 
1D 1 65 BNEQ EXESCMODEXEC [NO CHECK NEEDED FOR NON-USER MODE 
50 6€ 9A 003B 660 MOVZBL (SP),R “PICK UP THE CHME CODE (MOD 256) 
00000000°9F  0000'°CF40 ; ; 661 BITB WB _EMASKCRO],aMCTLSGB_SSFILTER ;'AND’ WITH THE INHIBIT MASK 
48 6 ; BEQL EXESCMODEX ;THIS CODE IS ALLOWED 
51 04046 8F 3C 004A 66 MOVZWL #SS$_INHCHME,R1 [SET THE EXECPTION CODE 
FFB?" 31 OOGF 664 BRW INHERCP SAND REFLECT IT 
52 665 VALIGN QUAD 


a8 
CMODSSDSP = CHANGE MODE SYSTEM ERVICE | DISPATCHER 15-SEP-19 :5 AX/VMS Macro V04-00 Page 14 cM 
viveeitt CHANGE MODE TO EXECUTIVE Di PATCHER ae eats ri 83; 28; $ SYS.SRCICMODSSDSP.MAR; 1 ve WD vo 
666 EXESCMODEXEC: : ;CHANGE MODE TO EXECUTIVE DISPATCH 
TE: MEMORY WRITING INSTRUCTIONS ARE 
668 SCAREFULLY INTERLACED WITH REGISTER TO 
5 66 SREGISTER OPERATIONS FOR SPEED. 
50 BEDO 3 670 POPL RO SREMOVE CHANGE MODE PARAMETER FROM STACK 
oF B 671 PUSHAB W*SRVEXIT i RETURN ADDRESS FOR CALL FRAM 
9A 005F 676 MOVZBL RO,R1 :BOUN RANGE OF CHME CODE VALUES 
pp 62 ? PUSHL FP OP 
A 0064 674 MOVZBL W*B_EXECNARGCR1].R1 ey REQUIRED NUMBER OF ARGUMENTS 
DD 006A 675 PUSHL AP SAV 
5D E $¢ 676 MOVAL a#4CR1],FP : CALCULATE LENGTH OF ARGUMENT LIST 
C 4 67 CLRQ. = =( SP) REGISTER SAVE MASK FOR chit FRAME 
76 678 IFNORD FP, (AP),EXACCVIO Rte F ARGLIST INACCESSIBL E 
D0 007C «67 MOVL SP. FP zr FP TO POINT TO CALL FRAME 
91 007 680 CMPB—s« CAP) ,R1 ‘CHECK FOR REQ UIRED NURBE OF ARGUMENTS 
BLSSU EXINSARG S INSUFFICIENT NUMBER OF ARGUMENTS 
= $6 ¢ 83 1 $ (RO HAS CHME CODE) 
AF 0084 re EXED SP: i _SASEM RO, #0, S*#ECASMAX ‘DISPATCH TO PROPER ugERVICE ROUTINE 
00000 00 8 684 ECASCTR [START WITH O FOR CHME CODE 
0 685 ECASE: ‘BASE OF CHME CA Se" TABLE 
00000000 686 .PSECT YSCMODEN, BYTE TREQUIRED NUMBER OF ARG TABLE 
0000 687 B_EXECNARG: [DEFINE TABLE BASE 
0000 688 
0000 689 ; 
0000 690 ; NOTE THAT THE OUT OF RANGE FALL THROUGH FROM THE CASEW FOLLOWS 
9000 691 : MANY PAGES LATER IN THIS LISTING (SEE ILLEGAL CHME’’ SUBTITLE). 
0000 694 
9000 695 
sae 
0000 698 ; 
44 44 ; Establish .PSECT for kernel-mode servicing code which follows 
00000000 702 .PSECT YSCMODK,QUAD 


COR RRSP = CHANGE —_ 


YSTEM SERVICE DISPATCHER P=1984 AX/VM 
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d CHMK or CHME code *% ~SEP-1984 SYS.SRCICMODSSDSP.MAR; 1 
-SBTTL INHEXCP = Inhibited CHMK or CHME code handling 


; INHEXCP = Inhibited CHMK or CHME code handling 


ES 
hib 
Ht 
He 
29 n$ ; FUNCTIONAL DESCRIPTION: 
715 ; When the ability to use specified system services is inhibited 
0 £18 ; via the SSETSSF system service, this routine receives control 
0 4 ; when an attempt to execute an inhibited system service occurs. 
009 7 ; : INHEXCP. is called when no stack frame cleanup is required. 
0000 f 1 ; INHEXCP1 is called when a call frame must be cleared from the stack. 
000 7 g :; The result of this code is a si paled exception whose signal arguments are: 
4 724 ; 1) SS$_INHCHMK or SSS INHCHME 
000 725; ¢} the inhibited change node code whose use was attempted 
444 726 ; ) the offending PC and PSL 
000 7e7 ; 
444 728 ; INPUTS: 
000 729; 
0000 730; INHEXCP 
0000 731; Ra = $S error code (SS$_INHCHMK or SS$_INHCHME) 
0000 7 § : QO(SP) = Change mode parameter code 
0000 733; 04(SP) = Saved PC of exception 
0000 734; O8(SP) = Saved PSL of exception 
0000 735 ; 
0000 736; INHEXCP1 
0000 737 ; A_ change mode dispatcher call frame to be cleaned up 
0000 38 : RO = Change mode parameter code 
44 739 ; R1 = $S error code (SS$ TNHCHMK or SS$_INHCHME) 
000 740 ; 04(SP) = Saved PC of exception 
0000 741; O8(SP) = Saved PSL of exception 
0000 reg i 3 
0000 74 
0000 762 INHEXCP1: 
5D OC AE DO 0000 76 MOVL HAS ag: FP ;PICK UP i OLD FP FROM FRAME 
SE 14 CO 0004 764 ADDL #5%4,SP [CLEAN OFF THE FRAME 
50 oD 007 765 L sRESTORE THE CHMX CODE 
009 767 INHEXCP: 
51 OD aise 768 PUSHL R11 ;PUSH THE EXECPTION CODE 
: 04 DD 008 769 PUSHL #4 ;PUSH THE NUMBER OF ARGUMENTS 
00000000 ' GF 17 000D 771 JMP G*EXESREFLECT ;REFLECT THE EXCEPTION 


F 8 
CMODSSDSP = CHANGE MODE SYSTEM SERVICE DISPATCHER 15-SEP=1 :5 AX/VMS Macro V04-00 Page 1 
vive titi ASTERTT SYSTEM SERTIC aa SE IES GS:20589 Lee eS Meee Ot net ve if, 
1 .SBTTL ASTEXIT SYSTEM SERVICE 
1 5 ASTEXIT = SERVICE TO EXIT AN ACTIVE AST AND ALLOW PENDING ASTS TO 
4 BE DELIVERED. 
1 f g : THIS SYSTEM SERVICE IS INVOKED WITH A CHMK MASTEXIT NOT CONTAINED IN 
1 f + A STANDARD SYSTEM SERVICE VECTOR TO AVOID CLUTTERING THE STACK WITH AN 
f 8 : ADDITIONAL CALL FRAME DURING AST EXIT PROCESSING. 
013 790 : INPUTS: 
4 791 ; 
$ £38 : OUTPUTS: 
01 79% : PCBSB_ASTACT IS CLEARED FOR THE ISSUING MODE 
o1 195 ; PHDSB-ASTLVL IS SET TO THE ACCESS MODE OF THE NEXT PENDING AST, IF ANY. 
001 £38 i+ 
a 
0013 800 .ALIGN QUAD ;** THIS IS ADDED TO FIX 
001 01 t** A BROKEN BRANCH INST. 
0018 0¢ tee BEQL ASTEXIT IN EXESCMODKRNL 
0018 04 ASTEXIT: EXIT ACTIVE AST 
50 04 AE 02 18 EF 001 05 EXTZV #PSLSV, CURMOD,#PSLSS_CURMOD,4(SP).RO :GET PREVIOUS MODE 
52 DD (001 806 PUSHL  R2 ;SA VE R2 (PUSHR IS SLOWER!) 
54 «DD «(00 0 PUSHL RG [SAVE R4 
54 Q0000000'EF DO 00 08 OVL  SCH$GL_CURPCB,R4 :GET PCB CURRENT PCB ADDRESS 
029 809 SETIPL IPL RSTDEL DISABLE KERNEL AST DELIVERY 
00 0C A450 34 02¢ 810 BBCCI 0-Pcasé ASTACT(R4), 10$ i CLEAR AST ACTIVE BIT FOR MODE 
FFCC’ 30 0031 11 10$ BSBW ers WLIL ; COMPUTE new AST LEVEL SETTING 
54 BEDO 0034 81 POPL 4 :RESTORE R 
52 BED0 0037 81 POPL  R2 RESTORE R3 
02 003A 814 REI SAND EXIT 


| 
—— | 


sussicememmestnenitichsis —; 
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vivee tt CHANGE MODE DETECT 1D ERROR HANDLING =SEP=1984 83: 23: 3$ YeyS eR SR cj? MODSSDSP.MAR; 1 ve WD vou 
: 2 = ~SBTTL CHANGE MODE DETECTED ERROR HANDLING 
B 874 : ACCVIO = ACCESS VIOLATION DETECTED IN ARGUMENT LIST 
B 875 : INSARG = INSUFFICIENT ARGUMENTS SUPPLIED FOR SERVICE 
B 26 : SSFAIL = ABNORMAL STATUS RETURNED BY SERVICE ROUTINE 
B £8 : THESE ROUTINES TAKE THE APPROPRIATE ACTION TO RETURN THE ERROR INDICATION 
B 879 : TO THE ORIGINAL CALLER. 
8 Re: 
B : : -ENABL LSB 
B ACCVIO: 3 
5D 5 DO B 4 MOVL  SP,FP [SET FRAME POINTER BEFORE RET 
0057'BF 50 BI . CMPW = RO AKCASCTR [I$ THIS AN UNRECOGNIZED CODE? 
78 «OE 04 9 ane. ab geau KERDSP SYES, NOT NECESSARILY ACCVIO 
50 OC 3C 004 $9 MOVZUL #SS$_ACCVIO,RO SSET ACCESS VIOLATION 
ee te , 
0057'8F 50 81 0049 895 k NSARG CMPW =s- RO, #KCASCTR :1S THIS AN UNRECOGNIZED CODE? 
D 1E 004 9 BGEQU KERDSP [YES, NOT NECESSARILY INSARG 
50 0114 BF 3¢ 09 ° INSARG: MOVZWL #SS$_INSFARG,RO SSET INSUFFICIENT NUMBER OF ARGUMENTS 
0056 308 SRVEXIT: SSERVICE EXIT 
07 50 £9 056 904 BLBC ~— RO, SSFAIL ;BR IF ABNORMAL COMPLETION 
2 0059 905 SRVREI: REI 
005A 907 EXESEXCPTN:: i SYSTER SERVICE EXCEPTION 
0000 005A 911 .WORD 0 SENTRY MA 
05¢ 913 BUG CHECK SSRVEXCEPT,FATAL [UNEXPECTED SYSTEM SERVICE EXCEPTION 
50 07 »o 069 917 SSFAIL: BITC  #7,RO [TEST SEVERITY FIELD 
FL 8613 «©0063)=— 918 BEQL $ SRVREI TIF EQL WARNING 
0148 31 0065 919 BRW SSFAILMAIN GOTO MAIN SSFAIL LOGIC 
0068 920 .DSABL LSB 


roa jEtOn EREGETAGD RMEICLUURTSCR, "EREEHMG HSERHD Hcg SS 


6 


0000 


0000 


50 03000000 8F 08 “e 


50 43 

00000000'GF 0000'CF4 
51 O04CC or 

FF7F 


OOD O9 09 SI NIIP A AAA DODO AAA AA AA AAA AAA AAA AAA AA AAA AO 
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wr 
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-SBTTL Filtered Change Mode to Kernel Dispatcher 


EXESCMODKRNLX = Filtered Change Mode to Kernel Dispatcher 
When inhibiting of user mode preston os service calls has agen enabled via the 


SSINHIBIT SYSGEN parameter, this routine -- not EXESCMODKRNLX <= is called 
eneuse a CHMK instruction is executed. The state of che stack on entry 


INPUTS: 


= SAVED PC OF EXCEPT 
SAVED PSL OF EXCEPTION. 


NUMBER OF SYSTEM SERVICE CALL ARGUMENTS. 
= FIRST ARGUMENT. 


ooo 
+o @Ffo 
eRe 
>> wun 
vv vuUV 
—~S— eww 

" 


4*N(AP) = N'TH ARGUMENT. 
OUTPUTS: 
THE APPROPRIATE KERNEL MODE SYSTEM SERVICE IS INVOKED. 


YSCMODKX ,BYTE START OF THE MASK TABLE 


ALLOW FOR ASTEXIT (CHMK #0)!!! 


= CHANGE MODE eras Hi CODE. 


. 0 
~-PSECT YSCMODK ,QUAD 


»ALIGN QUAD 
EXESCMODKRNLX:: 
BICL3 8(SP), Pash tal CURMOD,RO ;CHECK THE PREVIOUS MODE 
BNEQ EXESCM 5 CHECK NEEDED FOR NON-USER MODE 
MOVZBL PICK UP i CHMK CODE 
BITB (SF) 80 aiacate SSFILTER ; ‘AND’ WITH INHIBIT MASK 
BEQL EXESCMODRRNL ;THTS CODE IS ALLOWED 
MOVZWL #SS$_INHCHMK,R1 ;SET THE EXECPTION CODE 
BRW INHERCP zAND REFLECT IT 


1 8 
soasR ete hob HOSLEML SETAE AURA" TERETE BEREHY NOE TBCRABS Mean MOT 


se .SBTTL CHANGE MODE TO KERNEL DISPATCHER 
3 ; EXESCMODKRNL = CHANGE MODE TO KERNEL DISPATCHER 
0 
0 
0 
0 


) 


; THIS ROUTINE IS AUTOMATICALLY VECTORED TO WHEN A CHANGE MODE TO KERNEL 
INSTRUCTION IS EXECUTED. THE STATE OF THE STACK ON ENTRY IS: 


INPUTS: 

= CHANGE MODE PARAMETER CODE. 
SAVED PC OF EXCEPTION. 
SAVED PSL OF EXCEPTION. 


= NUMBER OF SYSTEM SERVICE CALL ARGUMENTS. 
= FIRST ARGUMENT. 


ooo 
+o @wFro 
a eee 
>> wom 
vv vuuU 
——S— eww 

u 


4*N(AP) = N'TH ARGUMENT. 
: OUTPUTS: 
THE APPROPRIATE KERNEL MODE SYSTEM SERVICE IS INVOKED. 


ALIGN QUAD 
EXESCMODKRNL: : ;CHANGE MODE TO KERNEL DISPATCH 
NOTE: MEMORY WRIT 
CAREFULLY INTERLACED WITH REGISTER 
: INSTRUCTIONS FOR SPEED. 


OOOO O0O0 OO OOO 00 0000 00 0D 0D 09 00 0D CD CD COCD CD CD CD CD CD CD CD CD CD CODCOD 


BHSANSOSSSOS SSSSSSerrerrrerryrererrree 


COOCCCOCOCOOCSOSOOCOCOCOCOCOOOSOOOOOO OOOO OOOOOOOOOoOO 


es a bs sd 4 4 a a ss bs > ss in — ss 2b an —-s 5 os 2b as > 2s 2 ss 4s 2 ss 


BOAR MADR @ ODL NOD EWN = NUO DNA NO OD NA UE WN 0 OD NOAUE P 


OMOoOMm M—7—-90 O"NWO 
ooo woo 
S oro >" 
SOOSGOOCOCOOOSOOOOOOOSOOOOOOSOOOOOOOOOOSOOOOSoOO 


50 BED POPL RO ;REMOVE CHANGE MODE PARAMETER FROM STACK 
& BEQL ASTEXIT TIF ZERO, AST EXIT SYSTEM SERVICE 
BE A PUSHAB B*SRVEXIT SRETURN ADDRESS 
51S MOVZBL RO,R1 SBOUND RANGE OF CHMK CODES TO 0,255 
‘ lowes sae AND 256 BYTES ACCESSIBLE FROM 6_KRNLNARG 
51 0000" cF4 i mOVZBL WSV'S$GB_KRNLNARGCR1],R1 Get NUMBER OF REQUIRED ARGUMENTS 
5D 00000004 9F4 E OOA MOVAL a#4(R1),FP SCALCULATE LENGTH OF ARGUMENT LIST 
7 € O0AD CLRQ.  =(SP) :PSW AND REGISTER SAVE MASK 
AF IFNORD FP, (AP),ACCVIO [DECLARE ACCESS VIOLATION 
5D SE dO 0085 MOVL  SP.FP [SET FRAME POINTER FOR CALL FRAME 
51 6 9 oB8 PB ss (AP) ,R1 [CHECK FOR REQUIRED NUMBER OF ARGS 
1F BLSSU KINSARG :IF LSSU, INSUFFICIENT ARGUMENTS 
54 00000000'GF 00 008D KERDSP: MOVL G*SCH$GL_CURPCB,R4 :GET CURRENT PROCESS PCB ADDRESS 
0055'8F 01 50 AF 00C4 CASEW RO,#1,#KCASMAX [DISPATCH TO PROPER SERVICE ROUTINE 
CA 1101 KCASE: ‘BASE OF CHMK CASE TABLE 
00000001 A 1102 KCASCTR=1 :CHMK CODES START AT 1 
1 * YSCMODKN, BYTE SREQUIRED NUMBER OF ARG TABLE 
00000 105 SYS$GB_KRNLNARG==. 
1 .BYTE 0 SENTRY FOR CODE ZERO 
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vive tt SYSTEM SERVICE vecto OR DEFINITION gz SEF 138 83 23; 3 SYS.SR cj? MODSSDSP.MAR; 1 - 
1118 .SBTTL SYSTEM SERVICE VECTOR DEFINITION 
1 #1116; 
1118 DEFINE ALL SYSTEM SERVICE VECTOR POSITIONS 
Bit 
0000 11 .PSECT $$$000,QUAD 
1 VECBASE: ;VECTOR AREA BASE 
1134 ; 
1 Fe Q10 AND WAIT COMPOSITE SERVICE 
1 $ : THE Q1O AND WAITFR COMPOSITE SERVICE OCCUPIES THE FIRST TwO 
09 11 : : SYSTEM SERVICE VECTOR POSITIONS. IT IS CONSTRUCTED BY 
000 1139: FROM TWO DISCRETE CHMK INSTRUCTIONS, ONE PERFORMING THE Q10 
00 1140 : AND THE OTHER PERFORMING THE WAITFR. WHICH RELY UPON THE 
000 1141: COMPATIBLE ARGUMENT LISTS OF THESE fWwO SERVICES. WAITFR HAS 
00 1148 : A SINGLE ARGUMENT, THE EVENT FLAG, WHICH IS THE FIRST ARGUMENT 
1143 ; IN THE QIO ARGUMENT LIST. 
$00 1168 
00 1146 GCOMPSRVB Q10W,- QI10 AND WAIT 
000 114 <Q10_MASK ! WAITFR.MASK | CLREF MASK ! SETEF _MASK> 
0028" BF BC 0002 1149 CHMK #10 UE 01/0 
C50 «9 9006 1150 BLBC RO, Q10W_RET {DON'T WAIT IF ERROR QUEUEING REQUEST 
10 AC DD 0009 1151 PUSHL Q10$_I0SB(AP) FETCH 1OSB ADDRESS IF SPECIFIED 
0636 000c 1152 BRW Q10_ENQ_SYNCH [USE COMMON Q10W, ENQW SYNCH CODE 
000F 1134 GCOMPSRVE SRESERVE 2 QUADWORDS FOR VECTOR 
B10 1189 
1 1160 : CONDITION HANDLER DISPATCH VECTOR 
01 1168 : THE FOLLOWING VECTOR IS INCLUDED IN THE SYSTEM VECTOR SPACE SO THAT BOTH 
01 1163 : HARDWARE-DETECTED (EXCEPTIONS) AND SOFTWARE-DETECTED (SIGNALS) CONDITIONS 
10 1164 : CAN BE DISPATCHED FROM THE SAME CALL INSTRUCTION. THIS IS NECESSARY SO 
010 1165 : THAT THE STACK SEARCH ALGORITHM TH ND SYSTEM SERVICE CAN DETECT 
i 1166 : AND PROPERLY PROCESS MULTIPLE ACTIVE SIGNALS AND/OR EXCEPTIONS. 
10 1168 ° 
or 1168 .ALIGN QUAD 
61 04 AE FA 0010 1177 CALLG 4( SP), (R1) :CALL CONDITION HANDLER 
05 16 178 RSB : 
1 : RET INSTRUCTION FOR Q10W ABOVE 
15 11 hoon part 
04 0015 11 RET 
6 3 
16 119¢ : COMMAND INTERPRETER DISPATCH VECTOR 
16 1194 : THE FOLLOWING aVECT R IS INCLUDED IN THE SYSTEM VECTOR SPACE SO THAT DIRECT 
16 1195 : CALLS CAN BE MADE TO THE CURRENT COMMAND INTERPRETER WITHOUT HAVING TO KNOW 
1196 : THE ADDRESS OF ITS SERVICE ROUTINE. 
16 1198 ° 
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vivee ti SYSTEM ate VECTOR DEF siTton ~SEP-1984 83:28:39 YOYS SRCTEMODSSDSP MAR: 1 . 
1213 ; 
! 1g ; DEFINE REMAINING SERVICES 
1216 
1 i$ GSYSSRV aheSTs: ,k,3 ;ADJUST OUTER MODE STACK POINTER 
1539 cA2/R3_RLLAS ROD, ~ TERCEDTION MASK. 
CC 1220 GSYSSRV ADJOSL,K,2,- SADJUST WORKING SET LIMIT 
CC 1221 <R2,R3,R4,R5> SREGISTERS R2-R5 
: : GSYSSRV AL One. 4- SALLOCATE DIAGNOSTIC PAGE 
ce 1 <RE_R3_RG.RS,R6.R7> SREGISTERS R2-R 
DO 1224 GSYSSRV ALL ae K,4.° SALLOCATE DEVIC 
DO 1205 RoR, Rs RS R6> SREGISTERS R2-R 
Od2 1 $ GSYSSRV AS ereck ASSOCIATE COMMON EVENT FLAG CLUSTER 
D2 1 <RO_RE_RG RS /R6,R7,RB,RO,RIO.RI1> REGISTERS R2-R11 
D4 1 : GSYSSRV as fin: ALL SCONVERT TO ASCII TIME 
b4 1 ie R a5; SREGISTERS R2-R6 
0 6 1230 GSYSSRV ASS TGN<K SASSIGN 1/0 CHANNEL 
50 (1231 R2,R3 Rh i R6,R7,RB,.RI.R1I0,R11> :REGISTERS R2-R11 
0D6 1 : GSYSSRV SINtIA g- SCONVERT TO BINARY TIME 
006 1 <R2 Ne a Ls R6,R7,R8> SREGISTERS R2-RB 
060 1234 GSYSSRV CANCEL“ K,1,- :CANCEL 1/0 ON CHANNEL 
060 1235 R3_-RL.RS.R6.R7.RB> ZREGISTERS R2- 
0D8 1 : GSYSSRV CA ctta K,2,° [CANCEL TIMER REQUEST 
008 1 <R2 me. Ri RS> SREGISTERS 
ODA 1238 GSYSSRV CANWAK.K,2,- :CANCEL WAKE UP REQUESTS 
St 1S syssny es CREAT Mole 
De 41 cs¥Ssnv & 2,8. 3.R4,RS R6,R7,R8B PON Re aE 
OODE 1 rk sas Rl R5> TREGISTERS R2-R 
O0EO 1244 GSYSSRV C CiE.2.- + CHANGE RODE TO EXECUTIVE 
060 1245 i TREGISTER R 
O8A 1 46 GSYSSRV CRKRNL.K, 2,- [CHANGE MODE TO KERNEL 
ne i 4 GSYSSRV craer eee ERENT FLAG 
oes i3 aie che nsf ha’ RS> {REGISTERS R2-R5 SEE WAITFR COMMENTS. 
Ee 1251 <R2 s*ES-K RE-RS.R6.R?> SREGISTERS Roky 
£6 125 GSYSSRV GETPTL. K iGET PAGE TABLE INFORMATION 
0&6 125 <R2,R3_R4_R5,R6-R7.RB.RI_RIO> :REGISTERS R2-R10 
OE8 1254 GSYSSRV CRELO “ALL 4i- : CREATE LOGICAL 
fee See GSYSSRV CREABK KR AS.R6.R7.RB> eee eeitsone 
Bs 3? as cRe RS Ad, AS, R6,R7,RB_RI. A {Ri1D REGISTERS R2-R11 
EA 1 8 4 RS RG R5,.R6,R7,RB.R9_ ene fg" REGISTERS R2-R11 
ec 1 60 GSYSSRV CRETVA.K : CREATE VIRTUAL ADDRE 
e188 Se Rach oA nn n> AEST act® 
SYSSRV A EFC, SDISASSOCIATE EVENT FLAG CLUSTER 
3: 1 rt . : Rg Ra RS.R6.R7._RB, ROTRIO RIS *REGISTERS R aoeat 
FO 1265 GSYSSRV OA Cot‘x,2,- !DEALLOCATE eVice 
FO 126 R ay} R5.RB> SREGISTERS R2-R5, RB 
F2 1 GSYSSRV DA §cn-k,1,- :DEASSIGN 1/9 CHANNEL 
Fo 1 : R3, ay} RS.R6,R7.R8> REGISTERS R2-RB 
Fe 126 GSYSSRV DCC Asi cr. $- [DECLARE AST SYSTEM SERVICE 
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v04= SYSTEM ante VECTOR BEY INT TAN o-$EP=13 4 83:20:39 YOYS SRCTCMODSSDSP MAR: 1 (1) 
Fe 127 <R2,R3,R4,R5> ;REGISTERS Re-R5 
F6 107 GSYSSRV DC XH. K _ [DECLARE EXIT HANDLER 
F6 107 <RO,R3,R4> SREGISTERS R2-R4 
FB 107 GSYSSRV DELLOG, ALL 3.5 :DELETE LOGICAL NAME 
FB 1274 <RO,R3,R4,R5.RO,R7,RB> REGISTERS R2-RB 
19 1075 GSYSSRV DELABY..K {,- iDELETE MAILBOX 
1 1 i: <RO,R3,R4,R5> SREGISTERS R2-RS 
FA 107 GSYSSRV DELPRG. - :DELETE PROCESS 
FA 1 £8 <RO,R3,R4,RS,R6,R7> SREGISTERS RO-RS 
FC 1e7 GSYSSRV DEL FVA.K - :DELETE VIRTUAL ADDRESS 
FC 1280 <RO,R3,R4,R5,R6,R7>,= REGISTERS R2-R7 
FC (1281 EXC MASK EXCEPTION MASK 
FE ; GSYSSRV DGBES¢ .K 3,- iDEL TE GLOBAL SECTION 
OFE 1 <R2,R3,R4,R5,R6,R7,RB,RI-RIO> ZREGISTERS R2-R10 
1 1284 GSYSSRV DLCONP.K,2,- :DEALLOCATE BIAGNOSTIC PAGE 
1 1285 <R2,R3.R4,R5,R6,R7> TREGISTERS R2-R 
102 1 : GSYSSRV DLCEFC.K,1,- iDELETE COMMON EVENT CLUSTER 
1 1 <R2,R3,R4,R5,R6,R7,RB,RO-R1O,R11> :REGISTERS R2-R11 
104 1 8 GSYSSRV UPDSE K,8,- [UPDATE SECTION FILE 
104 1 <R2,R3.R4,R5,R6,R7,RB> :R2-RB 
106 1290 GSYSSRV SNDERR.K,1,- +SEND MSG TO ERROR LOGGER 
1 1291 <R2,R3,R4,R5> SREGISTERS R2-R5 
108 1 36 GSYSSRV EXIT, K.1,- SIMAGE EXIT 
108 129 <R4> SREGISTER R4, ALWAYS ALLOWED! 
10A 129% GSYSSRV EXPREG,K,4,- SEXPAND PROGRAM REGION 
10A 1295 <R2,R3,R4,R5,R6,R7,RB> REGISTERS R2- 
10C 1 3 GSYSSRV FAQ. ALL 0,- SFORMAT ASCII OUTPUT 
1 129 <R2.R3,R4.R5,R6,R7,RB,RO-R10,R11> ; REGISTERS R2-R11 
1 1298 GSYSSRV FAOL,ALL,0,- [FORMAT ASCII OUTPUT WITH VALUE LIST 
158 1299 <R2,R3,R4,R5,R6,R7,RB,RI-RIO,R11> : REGISTERS R2-R11 
160 1 00 GSYSSRV FORCEX.K,3,- [FORCE EXIT 
160 1301 <R2,R3,R4,R5> SREGISTERS R2-R5S 
10E 1 0¢ GSYSSRV IMGSTA.ALL,6,- TIMAGE STARTUP 
10 1 rae SREGISTERS NONE 
170 1304 GSYSSRV SND IBC E 7, i SEND TO JOB CONTROLL 
170 1305 <R2,R3.R4,R5,R6,R7,RB,RO-R1I0,R11> ; REGISTERS R2-R11 
osc 1 $ GSYSSRV GETTIM.E,1,- [GET TIME 
6 ¢ 1 © [NO REGISTERS 
— 1 GCOMPSRVB UPDSECW,- [UPDATE SECTION AND WAIT 
O8— 130 <UPDSEC_MASK ! GETJPI_SYNCH_MASK> 
OOOOO1EC'9F 17 JM osaverene UPDSECU 
188 131 GSYSSRV HIBER K 0. ; HIBERNATE 
188 131 <R2,R$,R4,R5> TREGISTERS R2-R5 
110 1 GSYSSRV IMGACT E §,- SIMAGE ACTIVATION 
110 1 <R2,R3.R4,R5,R6,R7,RB,RO-RI0,R11> REGISTERS R2-R11 
090 1 GSYSSRV LCKPAG.K, $,- SLOCK PAGE IN MEMORY 
090 1 <R2,R3,R4,R5,R6,R7,RB> :REGISTERS R2-R 
112 1324 GSYSSRV LKWSET.K,$,- TLOCK PAGES IN WORKING SET 
112 1325 <R2,R3.R4,R5,R6,R7,RB> REGISTERS R2-R8 
114 1 6 GSYSSRV MGBLSC.K,?,- :MAP Gt AL SECTION 
114 1 <R2,R3.R4,R5,R6,R7,RB,R9-RIO,R11> REGISTERS R2-R11 
1146 1 : GSYSSRV PURGWS.K.1,- : PURGE WORKING SET 
116 1 <R2,R3.R4,R5,R6,R7,RB> :R2-R 
118 1 6 GSYSSRV NUMTIM.E.2,- > CONVERT TIME 19 NUMERIC 
118 1 <R2,R3.R4,R5,R6,R7> SREGISTERS RO-R 
092 1332 GSYSSRV SNDOPR.E,2,- :SEND MSG TO OPERATOR 
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SYSTEM SERVICE DISPATCHER 1 ~Seen 138s 88:28:99 ESYS. SRCICMODSSDSP_MAR; 1 
c CHANGE MOD FOR DEF INT TION RS R2-R11 
ie tit a regretted: ici: 2.R3,4,R5,R6R7RBRORIOAII> — LREGISTE 
y04= 3 <R2,  . ee TERS R2-R11 
st | 4 eereuny 19 e ale Pamealmad sh Ma E 
Te 1358 _snssmv ME ADEECH 2 AGLSTER zo 
Hei ers A, EES 
. pa 3 U o 
He 40 FETS NON ETS ne.R7> HEEND REG TO SYRBIONT MANAGER 
i HE GSYSSRY SRR Rd pepe oe 
BE conn Sie m0 08 TREE Bec 
03 13 Gsvssrv SETAST Kf =” EREGISTERE R2-AS 
185 1309 RV SETER A T= REGISTERS ROCRS. SEE WAITER COMMENTS. 
124 1348 GSYSSRV SETEE Ree, SET EXCEPTION VECTOR 
156 1380 GSYSSRV SETEKY.K, RS> PREGISTERS ‘ 
01 : 5 GSYSSRV SETPRW.K, AS,R6,R7.R8,R9> {REGISTERS 7 
13a 1386 GSYSSRV SETPRALK C5 REGISTERS taons 
BA (RS :S R2-R11 
13¢ 36 GSYSSRV Sa AR ar mo AE A ececee 
He 1p sree UL aemataiee 
} 0 60 GSYSSRV che 3-Rd RS.R6.R7.RB,RO> ;REGISTERS RO-R9 MODE 
01 GSYSSRV SETRWM.K,1,- ;REGISTER R4 FAILURE MODE 
i ; 1368 RV SETSFA,K,1,- REGISTER Rs AND EXECPTION ASK 
0134 136% Oey SR ee LS ELC MASK SET PROCESS SUAP MODE 
O36 | 6g et eee SUSpeNo enocess 
; $ | és abba! {ti he TN :REGISTERS COGiCAL NAME 
13, 1390 abba y De TR UNLOCK PAGE FROM MEMORY 
Ne : re Soreeny ULKPAG Ky R5.R6,R7,RB> /UNEOCK PAGES FROR WORKING SET 
Sc 1396 TRY eee ne. AT.RED eS BSOtEOUPE CALL. STACK 
13C 61375 YSSRV UNWIND, ALL g.~ UPeISTERS Rooks 
136 137 a CRE RS LRG RSS SWAIT FOR EVENT FLAG uses 
13 1377 GSYSSRV WAITER KA = REGISTERS ROCRG, THON CODE MUST BE 
sh 1a we tate 
40 1 TWAKE PROCES 
\? \ GSYSSRV WE Ree ras) ener ith AND OF EVENT FLAGS 
bt RR $4 GSYSSRV WELAND.K eee HMATT TOR LOgIERL OR OF EVENT FLAGS 
16 é GSYSSRV WF sash = REGISTERS 19. TERMINALS 
144 ST-ALL,2.~ ; RS Re- 
He ss SRT A 
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vive titi SYSTEM SERVICE VECTOR DEFINITIO misery 83: 23; if Heys. SRCICMODSSDSP.MAR; 1 - vou 
AO 1 90 GSYSSRV enum 3, ;DECLARE CHANGE MODE HANDLER 
AO 139 TSAVE R 
48 1 36 GSYSSRV SETPER SET PA PAGE FAULT MONITORING 
148 139 2,R3, Rd ‘AS, R6,R7,RB,.RI_R1I0,R11> sREGISTERS R2-R11 
146A 1394 GSYSSRV G eFae 59 -AL Be GET MESSAG 
144 1395 ofa" R RG ts R6,R7,RB,RO_.R10,R11> ;REGISTERS R2-R11 
Bg 1 36 GSYSSRV DERE. K,1,- SDECLARE ERR ROR ,06 MAILBOX 
BB 139 av) RS5> TREGISTERS R2-R 
4C 1398 GSYSSRV C Ane K,1,- SCANCEL EXIT HANDLER 
14€ 1399 mee. M RS> SREGISTERS R2-R5 
14E 1400 GSYSSRV oretha’ ‘GET CHANNEL IN NFOR MATION 
O14 1401 <R2 RS RG RS.R6,R7,RB,RO_RIO,R11> : REGISTERS R2-R11 
150 14 ; GSYSSRV GETOEY'K - GET pevick RT ORMAT ION 
150 14 R2,R3,R4,R5,R6,R7,RB,RI-RIO,R11> sREGISTERS R2-R11 
13 1404 GSYSSRV GET JP *K GET 108 PROCESS INFORMATION 
1 1405 “Rd AS »R6,R7 RB, R9.R10,R11> REGISTERS R2-R11 
0154 1406 GSYSSRV Put UTARG AL 'PUT FORMATTED ERROR MESSAGE 
0154 140 RG, ait R6, R7,R8,R9, /RIO,R11> ;REGISTERS Ro-R11 
0 Es 1408 GSYSSRV eX XCASG. *ALL UTPUT EXCEPTION SUMMARY MESSAGE 
O2E8 1409 R Rs 85 ’R6.R7_RB.RI, “R10 R11> ;REGISTERS R2-R11 
O2FO 1410 GSYSSRV SRO Acc E END MSG TO ACOUNTING MANAGER 
0 FO 1411 <R2,R RA RS.R6.R7_RB_RO, ‘RI0.RI1> *REGISTERS R2-R11 
009 1418 GSYSSRV S SETINE .k 'SET SYSTEM TIME 
0098 141 R2,R3_RL.RS.R6-R7.RB.RO_RIO.RI1> :REGISTERS R2-R11 
0156 1414 GSYSSRV SETPRV.K - SSET PRIVILEGES 
0156 1415 <R2,R3.R4,R5,R6,R7,R8> REGISTERS R2-RB 
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vive dt SYSTEM SERVICE VECTOR DEFINITION = SEE =138% 83:28:39 SYS.SRCJCM MODS SDSP.MAR; 1 ° (1) vO 
1 1417 ; 
| 1418 ; SPECIAL VECTORS FOR AST DELIVERY AND CLEARING 
13 138) 
1 14 ¢ : SYSSGL_ASTRET CONTAINS THE VALUE OF THE RETURN rADORESS FROM 
2 1423 ; THE CACL INSTRUCTION USED TO DISPATCH AN AST. THIS VALUE CAN 
12 12 2 3 BE USED WHEN SEARCHING UP THE STACK FOR THE AST CALL FRAME. 
0000 1431 -PSECT $$$000,QUAD 
7 1433 -ALIGN QUAD 
0000 8 14 : .WORD “M<> sSAVE NO REGISTERS 
0000'8F BC A 14 CHMK  #CLRAST D0 SPECIAL CHM 
04 E 1440 RET SAND RET URN 
00000000 O30F 1441 CLRAST=0 ; 
OF 1443 .ALIGN QUAD 
00000000' 10 1450 «LONG EXESASTRET :RETURN ADDRESS FROM AST DISPATCHING 
00000000' a818 143¢ .LONG CTL$GQ_COMMON TADDRESS OF "CORE COMMON’ DESCRIPTOR 
031 1455 ; 
0318 1456 ; ENTRY VECTOR FOR CONDITION HANDLER SEARCH. LIBSSIGNAL USES THIS VECTOR 
0318 1457 : TO SHARE EXCEPTION'S CODE TO SEARCH FOR AND CALL CONDITION HANDLERS. 
O33 1038 ; THIS ENTRY IS NOT CALLED; RATHER, IT IS JUMPED TO. NO RETURN IS MADE. 
0318 1460 ° 
0318 1461 .ALIGN QUAD 
00000000'9F 17 0318 1465 JMP a#EXESSRCHANDLER ;JUMP TO COMMON CODE 
O31E 1471; 
O31E 1478 ; NOTE THAT THE CODE IN PSECT $$$000 AT THIS POINT CANNOT EXC BED 320, (HEX) 
O31E 1473 ; WITHOUT MODIFYING THE RMS SYNCHRONIZATION CODE WHICH PRECEDES THE RMS 
O31E 1474 ; VECTORS WHICH CANNOT BE MOVED. 
O31E 1475; 
O31E 1476 


SYSSCLRAST CLEARS THE CURRENTLY ACTIVE AST STATUS 
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ION Fas Set §3:28:38 { 
: Set up the base for the RMS service codes. We leave a hole so that 
; other pees mode system services can be defined Later in this module. 
; The hole is defined by the offset between ECASCTR and RCASCTR; it 
3; is checked with an ASSUME at the end of all service definitions. 


RCASCTR=ECASCTR+10 
RCASMIN=RCASCTR 


SYS.SRCICMODSSDSP.MAR; 1 


ee eee 


$3 
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vy a3 fal = CHANG 
v04= SYSTEM SYS.SRCICMODSSDSP.MAR; 1 


RMS SYNCHRONIZATION ROUTINE 


THE FOLLOWING ROUTINE IS USED BY THE VARIOUS RMS SERVICES IN ORDER 
TO AWAIT 4/9 COMPL ETION. THE ROUTINE IS IN THE VECTOR AREA IN ORDER 
TO WAIT AT THE CALLER'S MODE THUS ALLOWING AST ACTIVITY FOR EITHER 
USER OR SUPERVISOR hope, OR BOT 


THE FAB/RAB_IS CHECKED FOR A LEGAL BLOCK ID, I.£., A 1 OR 3 
AN ERROR RETURNED IF INVALID. THE STRUCTURE I$ NOT REPROBED. 


Routias EACH RMS SERVICE VECTOR TERMINATES WITH A BRANCH TO THIS 


| 


THIS ROUTINE ASSUMES THAT THE FOLLOWING REGISTERS HAVE been SET BY THE 

EXITING RMS EXEC-LEVEL CODE WHENEVER A STALL IS REQUIRED 
R3 EFN TO WAIT ON 
R8 RAB/FAB_ADDRESS TO WAIT ON 
R4 (RMSWAIT BR ENTRY POINT ONLY, SWAIT SERVICE) FLAG FOR WAIT TYPE 

(0 = SAME RAB, 1 = DIFFERENT RABS) 
0000 -PSECT $$$000,QUAD 
00000320 “x320-<.-VECBASE> 


-BLKB 
RMSWAIT _ 10_DONE : 


POIPIPOPOPONIPN — tt tt ts tt eee 


DOOOOOO ON FOL LLL LL SF FQOQCQCCOCOCOCOOCOMMM MM MMMM mMmMmmmmmmmmmmmmmmmmmrnrnrncricricriery 


AAA ALA AAAI ANIA NIA NWN AAAI AANA AAAI AAA 


CQOCOCCCOCOCOOCOCOCOOCSOCOCGCOCCOCCOCOOCOCOCOOOOOOCOOOOCOCOOoOo 


—o a a a a a a bs a a a —b — b> bb as od > ns — bs ss —) ss 2 as 2s 9 3 9 4 2 —Oo 
PPPS PVPS TST USVI SUSU USSU SUSU SUSTAINS «OFT 
DEY DPA PAA DPD Mrs & Be BB EE EAN NIIP PO OO OO OS OOO Om 


CONIA UE WIS OOO NAME WN 9 OOO NOU EWN OUI @ O OD NAUE WN OOONOUE WW O0On 


; LLS R 
: 1S WAITING ON THIS F ee RASS WHEN RMS IS INITIALIZING FOR A NEW OPERATION 
: IT CHECKS THIS FLAG AND REJECTS THE NEW OPERATION IF THE CONTROL BLOCK 
: IS WAITING ON A PREVIOUS OPERATION. THIS PREVENTS A HANG CONDIT 
; CAUSED BY USING THE SAME STS/STV FIELD FOR 2 OPERATIONS AT ONCE. 
; FABSB_BLN = RABSB_BLN 
01 a8 01 «88 3 , BISB #1,RABSB_BLN(R8) :LOW BIT OF BLN FIELD IS THE FLAG 

3 3 

3 : THE ARGUMENTS ARE PUSHED ON THE STACK AND THE AP SET UP AS IF A ‘CALLS’ 

3 : INSTRUCTION WERE BEING EXECUTED. THE CHANGE MODE TO KERNEL SERVICE IS 
+ EXECUTED DIRECTLY. THIS SAVES THE OVERHEAD OF A ‘CALLS’ INSTRUCTION. 
+ RB MUST NOT BE DESTROYED BY ANY OF THE SERVICES USED HERE. 

s3 ODD . PUSHL R3 ZEVENT FLAG TO WAIT F 
SC FC AE 9E MOVAB -4(SP),AP [SET UP AP AS IF USING. CALLS INSTR. 
01 oD ; userwar Tone fi ‘NUMBER OF ARGUMENTS 
0038'8F BC CHMK  I*#WAITFR sDO "NAKED' WAITFR TO SAVE CALLS TIME 

: CHECK TO SEE IF THE USER STRUCTURE POINTED TO BY RB Is STILL VALID BY 
: CHECKING THe BLOCK ID TO BE SURE THAT IT IS EITHER A RAB (BID=1) OR 
: A FAB (BID=3). THIS WON'T CATCH THE CASE WHERE WHAT D HAVE BEEN 
: A FAB NOW LOOKS LIKE A RAB OR VICE VERSA BUT WILL CATCH EVERYTHING 

> ELSE. IF THE STRUCTURE IS NOT READABLE OR WRITEABLE THEN THE USER 
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FE VECTOR PET INIT GON aaSEe TERS G8i20:89 POHL MES Meer vote OO ae - 
: WILL GET AN ACCESS VIOLATION. mut BID FOR A FAB/RAB IS AT BYTE 0, 
: THE STS FOR A FAB/RAB IS A 
23 68 10s: BLBC (RB), 30$ :NOT SET. THEN NOT A FAB OR RAB 
68 «FC $F 3 BITB #°B11111100, (RB) 1S Wy A 1 OR 3? 
1 1 BNEQ 0 7NEQ ASO BLOW THE WHISTLE 
50 O08 AB D MOVL (RB) ,RO GET RAS STATUS CODE 
1 BEQL 0$ ZAND WAIT AGAIN IF NOT SET 
01 a8 01 BA BICB #1,RAB$B_BLN(R8) SCLEAR WAITING FLAG 
10 50 F9 BLBC ~=—_—«aRO.| 30 SBRANCH IF FAILURE CODE 
4 RET SRETURN TO CALLER 
: CLEAR THE RMS EVENT FLAG, CHECK STATUS AGAIN AND WAIT 1 MORE TIME IF 
; OPERATION STILL NOT DONE. THE APPROPRIATE ARGUMENTS FOR THE CLREF 
; AND SETEF (IF EXECUTED) REMAIN ON THE STACK FROM THE WAITFR ABOVE. 
: THE AP MUST BE PRESERVED. 
000D'SF BC 20S: CHMK =: L*#CLREF 7D0 A "NAKED' CLREF THE ARGUMENTS 
TARE ON STACK AND te yall LL SET UP 
sFROM THE WAITF 
08 A8 D5 TSTL  8(RB) tAND RE-CHECK STA oT te 
~~ a | BEQL § USERWAIT SBRANCH TO WAIT FOR FLAG AGAIN... 
tees IF STATUS STILL ZERO 
QOO2E'SF BC CHMK = IS#SETEF 31/0 COMPLETE. - LEAVE EFN SET 
DA 11 BRB 10$ SAND RESTORE RO STATUS CODE 


; BRANCH TO CHECK STATUS CODE FOR ERROR OR SEVERE ERR 
; A SUCCESS STATUS IN RO (FROM THE SWAITFR) INDICATES. AN INVALID FAB/RAB. 


BRW RMS_ERR_BR 


ENTRY HERE FROM SWAIT SERVICE. THIS SERVES AS AN EXTENDED BRANCH 
: TO THE SWAIT SYNCHRONIZATION CODE IN THE YSCMODE PSECT. 


RMSWAIT _BR: 
JSB @#RMS_WAIT_SYNC :D0 SWAIT SYNCHRONIZATION 


Ue. 
Oo 
Sad 


0127 (31 


000000D5'9F 16 


ENTRY HERE FROM EACH VECTOR 
CHECK FOR POSSIBLE STALL 


RMS CHK STALL: 
CMPW 3s RO, #RMSS STALL OXF FFF :1S THE STATUS CODE 1/0 STALL? 
BEQL §§ RMSWAIT_TO_DON ‘BRANCH IF YES 
RET ‘BACK TO CALLER 
.ALIGN QUAD 


t+ Se Oe Se Oe 


0000'8F 50 81 
BA 13 
04 
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CMODSSDSP = CHANGE MODE SYSTEM SERVICE DISPATCHER 15-SEP-1 AX/VMS Macro v04-00 Page 30 
rivets SYSTEM SERVICE VECTOR DEFINITION a3 P=] 1382 83; 28; $ SYS. SRCICMODSSDSP.MAR; 1 vt) 
sh teh 
6 : DEFINE RMS SERVICES 
0000035F 4 gf RMSSYNC=RMSCHK_STALL 
é 16 p ; HIGH USE RECORD OPERATIONS 
68 16 ; RMSSRV DELETE :DELETE A RECORD 
oi 16 .NLIST CND 
13 1634 RMSSRV FIND ;FIND RECORD 
14 1635 RMSSRV FREE RELEASE LOCK ON ALL RECORDS 
15 16 : RMSSRV GET [GET A RECORD 
1 16 RMSSRV PUT :PUT A RECORD 
017 1638 RMSSRV READ *READ A BLOCK 
O18 1639 RMSSRV RELEASE SRELEASE LOCK ON NAMED RECORD 
91 1649 RMSSRV UPDATE SREWRITE EXISTING RECORD 
00000359 OO01A 164 RMSSYNC=RMSUAIT BR SREDEFINE FOR $WAIT ONL 
001A 1646 RMSSRV “WAIT [STALL FOR RECORD OPERATION COMPLETE 
0000035F 001B 1649 RNSSYNC=RSCHE STALL iRESTORE STANDARD SYNC ADD 
0018 165¢ RMSSRV” WRITE SWRITE BLOCK 
Bare 1928 3; LOWER USAGE OPERATIONS 
001¢ 1656 RMSSRV CLOSE :CLOSE FILE 
001D 165 RMSSRV CONNECT : CONNECT RAB 
OO1E 1658 RMSSRV CREATE SCREATE FILE 
OO1F 1659 RMSSRV DISCONNECT ‘DISCONNECT RAB 
0020 1660 RMSSRV DISPLAY :DISPLAY FILE INFORMATION 
0021 1661 RMSSRV ERASE SERASE (DELETE) FILE 
00 ; 166¢ RMSSRV EXTEND SEXTEND FILE ALLOCATIO 
0023 166 RMSSRV FLUSH SFINISH 1/0 ACTIVITY FOR STREAM 
0024 1664 RMSSRV MODIFY :MODIFY FILE ATTRIBUT 
025 1665 RMSSRV NXTVOL [NEXT VOLUME 
0 $ 1666 RMSSRV OPEN [OPEN FILE 
027 166 RMSSRV REWIND SREWIND FILE 
028 1668 RMSSRV SPAC [POSITION FOR TRANSFER 
029 1669 RMSSRV TRUNCATE : TRUNCATE FILE 
02A 1670 RMSSRV ENTER SENTER FILENAME INTO DIRECTORY 
028 1671 RMSSRV PARSE SPARSE FILENAME SPECIFICATION 
02C 1678 RMSSRV REMOVE ZREMOVE FILENAME FROM DIRECTORY 
02D 167 RMSSRV RENAME,NARG=4 :RENAME A FILE 
O2E 1674 RMSSRV SEARCH SEARCH A FILE DIRECTORY 
0 F 1675 RMSSRV SETDDIR,NARG=3, nog ynee 
0 1676 Ser DEFAULT DIRECTORY STRING 
0 167 RMSSRV SETDFPROT,REGS=<R2,R3>,NA NOSYNC= 
031 1678 - SET FAULT fice PROTECTION MASK 
031 167 RMSSRV SSVEXC.REGS=<>,NOSYNC= 
6 1680 3GE NERAT SYS SERV EXCEPTION 
1681 RMSSRV RMSRUNDWN,NARG=2,NOSYNC 
033 16 é PERFORM RUNDOWN ON RMS FILES 
0 16 RMSSRV RMSRUHNDLR,NARG= = NOSYNC=1 
4 1684 MS R agovery Unit Handler 
4 1685 RMSSRV FILESCAN,NARG=3, Nos¥nc= 
19 § :Perform syntax check for file specs 
1688 : ADD NEW RMS SERVICES IN FRONT OF THIS CODE! 
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: Now we add special non-vector code. Because of the CASE instruction 
; used at the front of RMS, this code (and any future additional code) 
3; must be the Last olenent of the RMS area. 


D 
] 
} 9 
} 
i 
1695 GCOMPSRVB Helper branch to error processing 

4 8 1699 RMS_ERR_BR: 

OOOOOOF2"9F 17 04 1700 “JMP @#RMS_ERR 

4 1704 GCOMPSRVE 1 

Hen 

4 5 3 3; NOTE: eee CES MARKS THE END OF THE CURRENTLY DEFINED RMS VECTORS. 

4 1709 ; SSVECREG2 MARKS THE START OF THE SECOND REGION OF SYSTEM 

04 1710 ; SERVICE VECTORS. THERE IS EMPTY SPACE BETWEEN THESE REGIONS 

4 1711 ; FOR FUTURE RMS VECTORS. IF NECESSARY, THIS SPACE CAN at 28 

4 ar 3 BE USED FOR SYSTEM SERVICE VECTORS BY BACKING UP SSVECREG 

4 1715 ; (TOWARDS THE RMS VECTORS) AND ADDING NEW SYSTEM SERVICE VECTORS 

04 1714 ; BEFORE THE ALREADY DEFINED ON IN OTHER WORDS, THESE TWO 

0488 1715 ; VECTOR REGIONS MAY GROW TOW. WARDS EACH OTHER. IF THEY COLLIDE, 

Be 1716 ; AN ASSEMBLY ERROR IS GENERAT 

00000488 \" -PSECT $$$000,QUAD ; CMODSSDSP 
Oc8 1724 RMSVECEND: 
000005CO0 04 | 1725 .=VECBAS +*x5C0 
Bee8 4 § SSVECREG2: ; START OF SYSTEM SERVICE VECTOR REGION 2 


| 
CMODSSDSP = CHANGE MODE SYSTEM SERVICE DISPATCHER 15-SEP-19 :53: AX/VMS Macro V04-00 Pa 
viveaitt RESTON D OF SYS. SERV OEE TBR isphr chen met Ta MT OMS Te TOE oe Hf, 
‘ 7 4 .SBTTL REGION 2 OF SYS. SERV. VECTOR DEFINITIONS 
C 1 : 
C 15 $ ; Note: Service codes for exec mode services in this region are 
2¢ 17 8 ; reserved by the offset defined above between RCASCTR and ECASCTR. 
CO 1739 ; If the ASSUME at the end of this section breaks, the offset must 
2 1740 ; be increased. 
CO 1741; 
5¢ 1246 
5CO 174 GSYSSRV ENG. KI : ENQU FUE 
5CO (1744 rs Re RS,R6,R7,RB, Rd, R1i0,R11> ; REGISTERS R2-R11 
15A 1745 GSYSSRV Ded, ie peau U uM 
15a 1746 2°R$,R4RS.R6.R7.RB-RI_RI REGISTERS R2-R11 
13¢ 174 GCONPSRVE. figu EN nou UEUE | iw ND WAIT 
1 g 174 Q_MASK ! WAITFR_MASK i CLREF SETEF_MASK> 
0048 8F BC 0502 175 CHMK € Non ; EXECUTE. Sho. SYSTEM” SERVICE 
0689 8F 50 B81 0506 175 CMPW =s RO, #SS$_SYNCH ; 7 COMPLETED SYNCHRONOUSLY 
01 12 05D 1736 BNEQ 108 
04 O5DD 1755 5$: RET ; THEN RETURN WITHOUT ANY WAITING 
FC 50 «6©€9 «6(05DE «61756 10S: ~— BLBC : DON'T WAIT IF ERROR 
OC AC DD O5e! 1757 PUSHL ENGS LKSB(AP) + OTHERWISE GET 10s ADDRESS IF SPECIFIED 
SF 11 «05E4 «175 BRB Q10_ENQ_ ay NCH : AND USE ¢ N SYNCH CODE 
0566 176 GCOMPSRV + RESERVE 3 QUADWORDS FOR VECTOR 
Oe8 176 GSYSSRV SETSSF.K.1, - > SET SYSTEM SERVICE FILTER MASK 
5E 1764 : REGISTER R4 
O1SE 1765 GSYSSRV Sets, K,3,- + SET STACK LIMITS 
136 1766 RA>” ; REGISTERS R2,R3,R 
160 1767 GSYSSRV geet -k/? : ‘ T SYSTEM. INF ORMATIO 
160 1768 6) RS.R6.R7.R8, ROAR 10,R11> ; REGISTERS R2-R11 
O16 1769 GSYSSRV ingly: ALL,0.- RIMAGE A ADRESS RELOCATION FIXUP 
162 1770 »R3,R4,R5> + REGISTERS R2-R5 
0608 44 soon IMGF IX_2,- f seeeeeeeee TEMP teeeeneeee 
060A 1706 GCOMPSRVE 1 jp teeeeeeene TEMP teeeeeenee 
d6i9 1774 GSYSSRV GETDVI «Ky K,8,- GET i VICE_AND VOL UME INFORMATION 
0610 1775 4,R5,R6,R7,R8, Rd, R10,R11> ; REGISTERS R2-R11 
0164 1276 GCOMPSRVB a The te GET DEVICE INFORMATION AND WAIT 
164 177 <GETDVI_MASK ! GETUPI _SYNCH EAASK> 
004D'8F BC 061A 1781 CHMK  I*#GETDUI 
06 11 O61E 1782 BRB GETJP1_COMMON 
620 17 : GCOMPSRVE 1 
620 17 GCOMPSRVB GeTJPIu - GET JOB/PROCESS INFORMATION AND WAIT 
620 17 <GETJPI_MASK ! GETJPI _syiCH _MASK> 
0045'8F BC 0622 17 CHMK I°#GETJPI 
626 1793 GETJPI_COMMON: 
QOOOO1FC'SF 17 0626 179% JMP @#GETJP1_SYNCH 
6 1798 GCOMPSRVE 2 
630 179 GCOMPSRVB GETSVIW : GET SYSTEM INFORMATION AND WAIT 
630 1800 <GETSYI MASK ! GETJPI _SYNCH_MASK> 
004C'8F aC 632 1804 CHMK sd: Get 1871 
EE 11 0636 1805 BRB GETJP1_COMMON 
638 1809 GCOMPSRV i 
é 1 19 GCOMPSRVB SND JBCM SEND 19 JOB CONTROLLER AND WAIT 
181 <SNDJBC_MASK ! GETUPI ~Svich MASK> 
0001'8F BD 063A 1815 CHME  I*#SND Sac SEND TO JOB CONTROLLER 
& 11 6 F 1 1 BRB GETJP1_ COMMON 
460 182 GCOMPSRVE 1 


ey rc 


39 
CMODSSDSP = CHANGE MODE SYSTEM SERVICE DISPATCHER 15-SEP-1984 23:53: AX/VMS Macro V04-00 Page 33 
vee tt REGION 2 OF SYS. SERV. VECTOR DEFINITION 3: Eb=49 4 §3:28:39 YOYS SRCICHODSSDSP_MAR; 1 vt) 
40 1 GCOMPSRVB SYNCH,- ; SYNCHRONIZE EFN AND I0SB 
40 1 <WAITFR_MASK ! CLREF_MASK | SETEF MASK> 
08 AC DD 4 PUSHL  SYNCHS_TOSB(AP) : GET ADDRESS OF 10SB IF SPECIFIED 
45 1 : $ CONDITION CODES SET FROM PUSH OF I0SB ADR ONTO STACK 
45 1 : THE EFN STATE AND [OSB STATUS MAY HAVE ONLY THE FOLLOWING COMBINATIONS 
45 1 0 ; EFN CLEAR, (10SB) = 
45° 1831: EFN SET, (10SB) NON ZERO 
4 ! § 3 EFN SET, (IOSB) CLEAR = the EFN was set by another I/0 operation 
645 1834 ; IF THE EFN COULD BE CLEAR AND (I0SB) WAS NON-ZERO, THIS SERVICE WOULD 
4 ; EXIT WITH THE EVENT FLAG CLEAR WHICH IS NOT CORRECT. 
645 1 : 
645 1 8 Q10_ENQ_SYNCH: 
23. 13 «(0645 «1 BEQL 50% ; BRANCH IF NO IOSB SPECIFIED 
00 BE 85 0647 1840 TSTW ac SP) + IS COMPLETION STATUS SET? 
1A 12 064A 1841 BNEQ 40$ + BRANCH IF SET 
0038'8F BC 064c 1 4g 10$:  CHMK  I*#WAITER + MUST WAIT FOR EFN TO BE SET 
00 BE BS 0650 184 TSTwW  a(SP) t COMPLETION STATUS SET YET? 
01 13 0653 1844 BEQL 308 : BRANCH IF NOT 
04 0655 1845 208: RET : YES, RETURN STATUS 
FC 50 EO (0656 1 46 0$: BLBC  R0,208 : IF ERROR, RETURN STATUS 
000D'BF BC 0659 184 CHMK I *#CLREF : NO, CLEAR EVENT FLAG 
00 BE 85 065D 1848 TSTW  a(SP) : AND IF STILL NOT DONE 
cA 13 0660 1849 BEQL 108 + WAIT SOME MO 
QO2E'SF BC 066 1850 CHMK  I*#SETEF : OTHERWISE EXIT WITH IT SET 
50. 01 00 0666 1851 40$:  MOVL = S*#SS$_NORMAL,RO t FORCE NORMAL SUCCESS 
04 0669 3g RET : AND RETURN 
ree ! 22 3; NO IOSB GIVEN, JUST WAIT FOR THE EVENT FLAG TO BE SET 
0038'8F BC 066A 1 36 50s: CHMK  I*#WAITFR : WAIT FOR SPECIFIED EVENT FLAG 
04 066€ 185 RET + AND RETURN 
O66F 1861 GCOMPSRVE 2 + RESERVE 6 QUADWORDS FOR VECTOR 
0670 186¢ GSYSSRV ERAPAT,K,3,- + GENERATE A SECURITY ERASE PATTERN 
0670 186 <R4> 3: SAV 
166 1864 GSYSSRV CRELNT,K,8,- : CREATE LOGICAL NAME TABL 
166 1865 <R2,R3,R4,R5,R6,R7,RB,RI-R10,R11> ; REGISTERS R2-R1 
168 1 66 GSYSSRV CRELNA.K - : CREATE LOGICAL NAME 
168 186 <R2,R3.R4,R5,R6,R7,RB,R9-R10,R11> REGISTERS R2-R11 
16A 1868 GSYSSRV DELLNH.K $- ; DELETE LOGICAL NAME 
16A 1 $9 <R2,R3.R4,R5,R6,R7,RB,RI-RIO,R11> REGISTERS R2-R11 
16¢ 1 : GSYSSRV TRNLNM.K,5,- ; TRANSLATE LOGICAL NAME 
16€ 187 <R2,R3,R4,R5,R6,R7,RB,RI-RI0,R11> ;REGISTERS R2-R11 
16— 1 es GSYSSRV GEICK] .K ?,- : GET LOCK’ INFORMATION 
16 187 <R2,R3,R4,R5,R6,R7,RB,RI_-R10,R11> sREGISTERS R2-R11 
170 1874 GCOMPSRVB GETLKIW.- : GEf LOCK INFORMATION AND WAIT 
170 1875 <GETLKI_MASK ! WAITFR_MASK ! CLREF_MASK ! SETEF_MASK> 
0053'8F BC 6A 1879 CHMK LaGETLRI 
05 50 £9 0646 1880 LBC ~—_—«aRO, 10 ; DON'T WAIT IF ERROR 
10 AC DD 06A9 1881 PUSHL  GETLKI$_I0SB(AP) : OTHERWISE GET IOSB ADDRESS IF SPECIFIED 
97 11 O6AC 1 B Q10_ENQ"SYNCH : AND USE COMMON SYNCH CODE 
04 O6AE 1883 10$: RET : RETURN ON ERROR 
Gar GCOMPSRVE 2 : RESERVE 2 QUADWORDS FOR VECTOR 
rehi 1 } GSYSSRV ASCTOID.E,3.- TASCII TO IDENTIFIER CONVERSION 
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CMODSSDSP = CHANGE MODE SYSTEM SERVICE DISPATCHER 15-SEP-1984 23:53: AX/VMS Macro Vv04-00 Page 35 
vivee tt REGION 2 OF SYS. SERV. VEETOR SEF INIT ION He Eb=19 4 83:28:39 YOYS SRCICHODSSDSP_MAR; 1 . (1) 
1959 LDOBSRV 314 ¢ READJNLW, K, <R4>, 4, 5, READJNL 
} 9 LOBSRV CJFS$, RECOVERW, K,  <R4>, 5, 6, RECOVER 
1 H 
00004010 13 RUFSKCASCTR = 16400 3 
13 5 ; LOBSRV RUFS, Ser NT ERRU. K <R2,R3,R4,R5,R6> GE 
F 1398 LDOBSRV RUFS$, STARTRU, K, <R2,R3,R4,R5,R6> GR 
7 19 LOBSRV RUF$, PHASE1, + R2,R3,R4,R5,R6> HI 
F 1308 LDOBSRV RUF$, PHASE2 K, <R2,R3,R4,R5,R6> HI 
47 196 LDBSRV RUF$, CANCELRU K, <R2,R3.R4.R5.R6> 1D 
af 19 p LOBSRV RUF$, MARKPOINTRU, K, <R2.R RG RS »RG> 1D 
57 197 LOBSRV RUF$, RESETRU, K, <R2,R5,R4,R5,R6> IL 
5F 1376 LOBSRV RUF$, DCLRUH, » <R2,R3,R4,R5,R6> Im 
0867 197 LOBSRV UFS, CANRUH, K, <R2,R5,R4,R5,R6> Im 
sof 13 he f LDBSRV RUF$, RUSTATUS, K, <R2,R3,R4,R5,R6> a 
He 1308 > End Recovery Unit consists of a two-phase commit, so we call each IN 
8 aA 4 ; phase separately. in 
0877 1979 ° GCOMPSRVB ENDRU, <PHASE1_MASK ! PHASE2_MASK>, RUF$ ; End Recovery Unit IP 
‘Oor'H BS SHR TE GIR oragse i 
4013'8F Bt 088] 1985 sa CHK 1*#PHASE2 Ke 
088 1998 "  GCOMPSRVE 2 KI 
888 1991 GSYSSRV MTACCESS Ke6-5 iMag tape installation spegitte access routi LC 
088 1998 <R2,R3,R4,R5.R6O,R7,RB,RI-R10,R11> ;REGISTERS R2-R11 C 
Sire 188 
176 1995 : End of system service vector definitions. New system services are 
B28 1338 ; to be added at this point. 
O16 a! 7 ASSUME RCASMIN GE ECASCTR zsExec service codes must not collide with RM 
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posiald “Ti m SERLEGEAPAEPALENESy TECRESSISEG GE:2SETY UNCYMECNOESSIOSS%Meenn P20" H, 


0000 CLiane: -PSECT $$$000,BYTE 
00000000" $5 Sue POET SALCLICALBR sPIC JUMP FOR CLI CALLBACK 
068 aoant a -BLKB <SGNSC_SYSVECPGS@9>-<.-VECBASE> ;FILL REMAINDER OF RESERVED PAGES 
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CMODSSDSP = CHANGE MODE SYSTEM SERVICE DISPATCHER 15-SEP-1984 23:53:36 VAX/VMS Macro V06-00 p ? 
vives tit ILLEGAL. CHAE OR CHAK RODE VALUE HANOLENG 'SaSEP-1oRC BSrc0:89 Lene veecHagrs vOssOO ., Page 37, 


A i .SBTTL ILLEGAL CHME OR CHMK CODE VALUE HANDLING 
A 7: 
A ; END OF CHME DISPATCH TABLE 
A e 
9000 A -PSECT YSCMODE,QUAD 
00000000' FF A jSB @CTLSGL_RMSBASE ;SEE IF RMS DOES THIS SERVICE 
A + (RO HAS CHME CODE) 
00000000'EF 16 Ag 4 JSB EXESLOAD_EDISP > CALL LOADABLE CODE DISPATCHERS 
00000000' 9F 95 A 6 TSTB QgCTLSGA_SSFILTER : ANY INHIBIT BITS ON? 
08 BEQL ‘ + NO OKA 
51 0404 8F 3¢ 008 : MOVZWL #SS$_INHCHME,R1 > YES, SET THE EXCEPTION CODE 
FF44" 31 of BRW INHERCP1 ; DEAL WITH BAD CODE 
51 00000000'9F 09 B ? 5$ MOVL  @#CTLSGL_USRCHME,R1 : GET PER-PROCESS USER CHME VECTOR 
oe } C ‘ BEQL 108 + NOT PRESENT, TRY SYSTEM WIDE 
0c 034 ; 
¢ 5: CALL PER-PROCESS "'USER'' SUPPLIED PLUG-ON HANDLER FOR CHME 
¢ $ ; WITH UNRECOGNIZED CODES. 
o¢ 038 ; RO = CODE FROM CHME/CHMK (LONGWORD) 
C5 2039 : R1 = ADDRESS OF ROUT! 
Oc 40 : (SP) = RETURN ADDRESS IN CASE CODE IS NOT LEGAL. 
00¢ 41: IF AN RSB IS ISSUED, THEN THE SYSTEM-WIDE HANDLER WILL BE 
00¢5 4¢ ; GIVEN AN OPPORTUNITY BEFORE DECIDING THAT THE CODE IS REALLY ILLEGAL. 
3 43 ; (NORMAL RETURN IS A RET AFTER PERFORMING FUNCTION) 
61 16 bE 45° JSB (R1) ; CALL PER-PROCESS USR CHME HANDLER 
C7 46 t RETURNS ONLY IF ILLEGAL CODE 
51 00000000" EF 00 C7 2047 10$:  - MOVL L vEXESGL_USRCHME .R1 : ELSE TRY SYSTEM WIDE VECTOR 
» ¥ ¢ 48 BEQL 0$ + NOT PRESENT, ILLEGAL 
61 16 OD 49 JSB (R1) : CALL SYSTEM WIDE USER CHME HANDLER 
OD 51: CALL SYSTEM-WIDE "USER" SUPPLIED PLUG-ON HANDLER FOR CHME 
+3 26 3 WITH UNRECOGNIZED CODES. 
OD 54: RO = CODE FROM CHME/CHMK (LONGWORD) . 
0D 55: R1 = ADDRESS OF ROUT! 
0D 36 ; (SP) = RETURN ADDRESS TO GIVE SS$_ILLSER ERROR 
p ; : (NORMAL RETURN IS A RET AFTER PERFORMING FUNCTION) 
D 8 , ; RETURNS ONLY IF ILLEGAL CODE 
OOcF' 31 p 60 20$: BRW ILLSER : 
00000008 p 6¢ ECASMAX=ECASCTR=1 
D 4; 
p $s + RMS SWAIT SYNCHRONIZATION CODE. 
D i + LOOK AT FLAG IN R4 TO DETERMINE IF THIS IS A $WAIT FOR THE SAME OR DIFFERENT 
D : > RABS. IF SAME, MERELY RSB; IF DIFFERENT, WAIT ON EVENT FLAG AND THEN 
p + RE-EXECUTE THE SWAIT SERVICE. 
D . 
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ILLEGAL CHME OR CHMK CODE VALU 
RMS _WAIT SYNC: 
LBS 


(S$P)+ 
3 #RMSS_STALLE“XFFFF 
20$ 

yy Is On EReon i a FROM THE RMS S 


IT 
"BECAUSE THE RMS VECTORS CAN'T MOVE, 
E FOR ERROR OR SEVERE ERROR 


;BRANCH IF DIFFERENT RABS 
;HANDLE WITH STANDARD STALL 
OP RETURN PC FROM STACK 
IS STALL REQUIRED? 
RANCH IF YES 
- BACK TO USER 
T ON gg Al ty EVENT FLAG 
RE-EXECUTE RMS SWAIT 
YCHRONIZATION CODE 
WAS MOVED HERE BECAUSE CODE WAS 
THIS CODE DID. 


IF SUCCESS THEN 


E DETECTED = RETURN ERROR IN RO, STATUS OF RECORD 


#1,RABSB_BLN(R8) 


7 
0 
0 


RETURN TO EXEC MODE TO GENERATE 


SOOO0O00000 000000000909 090090908 SIN 
HS OONA NE WIN OOD NAME WN O ONO UN 
eee 


eh be Le lel elelealelelelelalaleleleolea) 


0 
8 F 
: 


CLEAR WAITING FLAG 

7STALE SUCCESS => BAD STRUCTURE 

:CH ANGE STATUS TO BAD STRUCTURE ERROR 
ROR OR SEVERE ERROR? 

TBRANCH IF NOT 


POSSIBLE SYSTEM SERVICE FAILURE EXCEPTION 


sSTATUS CODE TO R2 
:GENERATE EXCEPTION IF ENABLED 


———— 


CMODSSDSP = CHANGE MODE Ag At a 
v04 ILLEGAL CHME OR CHMK 


—_ 
9 


0000 


QOOO0000"EF 16 

Q0000000'9F 9 

os 1 

51 O4CC_8F ; 
FE74 

51 Q0000000°9F oD 

. eS 

i 


SERVICE D 
CODE VALU 


ls PAT CHER ite 1 m1 i 138% te 23: $$ yexives cro V04-00 


VALUE 
END OF CHMK DISPATCH TABLE 


-PSECT YSCMODK,QUAD 


SYS.SR cle MODSSDSP.MAR; 1 


OPM NINN NN NNN NINN OO OHNO OAPOOOSOSOSOSOOOOSSOSOOUITS 


watubtadaiutiatabuababubablwimbabahababababablubablubabuaBababababmahbabababababachubabubabhabahahabchabatabubaiaaiatail 
P>rrrr rrr rrr rrr Pr OOOCOOOOO0O00000 00D NNN NS NOOO 


fe ee eww ale wl alae ola elelaleoleoleleoleleal ele oleoleleleloleoleleololololelolelelelolololalelololalo) 


51 00000000'EF 09 
oe 
61 16 
, 
, 4 
50 0104 8F 3C 4 
04 : 


: MOVZWL #SS$_ILLSER,RO 
RET 


cme ce em ee em me a ee a a ed a 8 ed 8 2 dd 3 SS 2 3 3 
DANAUS BS SB EB BWI IAL I Inning 2 2 2 9 OOOO OOO 


OOO NAME WIN 9 OD NIA NE WWIN § O OD NAN EWI 9 0 OD NA UNE WIN OC OONA UE WIN SO OONOUNE WW 
e@ete 


UNIMPLEMENTED SERVICES, DEFINED TO PROVIDE CLEAN LINK 

+ REMOVE NAME AND VERIFY GSYSSRV ENTRY WHEN SERVICE IS IMPLEMENTED. 

: CALL PER=PROCESS "USER'’ SUPPLIED PLUG-ON HANDLER FOR CHMK 

; WITH UNRECOGNIZED CODES. 

: RO = CODE FROM CHME /CHMK (LONGWORD) ’ 

: R1 = ADDRESS OF R 

: (SP) = RETURN ADDRESS TO GIVE SS$_ILLSER ERROR 

: (NORMAL RETURN IS A RET AFTER PERFORMING FUNCTION) 
JSB EXESLOAD_KDISP : CALL LOADABLE CODE DISPATCHERS 
TSTB © A#CTLSGB_SSFILTER i ANY INHIBIT BITS ON? 
BEQL : ALL OKAY 
MOVZWL #SS$_INHCHMK,R1 : ves, SET THE EXCEPTION CODE 
BRW INHERCP1 : DEAL WITH BAD CODE 

5$: MOVL § @#CTLSGL_USRCHMK,R1 ; GET PER-PROCESS VECTOR 
BEQL = 10$ : NOT PRESENT, TRY FOR SYSTEM WIDE 
JSB (R1) : CALL PER-PROCESS HANDLE 

: RETURNS ONLY IF CODE IN RO IS NOT 

: CALL SYSTEM-WIDE “‘USER'' SUPPLIED PLUG-ON HANDLER FOR CHMK 

: WITH UNRECOGNIZED CODES. 

: RO - CODE FROM CHME / CHK (LONGWORD) 

: R1 = ADDRESS Of ROUTIN 

: (SP) = RETURN ADDRESS TO GIVE SS$_ILLSER ERROR 

: (NORMAL RETURN IS A RET AFTER PERFORMING FUNCTION) 

2 ; HANDLED BY PER PROCESS HANDLER 

10$:  MOVL LSEXESGL_USRCHMK,R1 ; ELSE GET SYSTEM WIDE VECTOR 
BEQL 208 : NOT PRESENT, ILLEGAL SERVICE 
JSB (R1) : CALL SYSTEM WIDE HANDLER 

208 t RETURN ONLY IF ILLEGAL CODE 

EXESALCDNP: : x 

EXESCLRPAR: : 

EXESFAILURE: : ; THIS PROCEDURE ALWAYS FAILS 
NOP 
NOP 


ILLEGAL SYSTEM SERVICE 


— 
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vive tt ILLEGAL CHME OR CHMK CODE VALUE HANDLING - eats 83:28:39 Heys. SRCICMODSSDSP.MAR; 1 - 9) 
160 EXESSUCCESS:: ; THIS PROCEDURE ALWAYS SUCCEEDS 
1 O1AA 21 NOP ; THESE TWO INSTRUCTIONS CAN ALSO 
1 O1AB 21 NOP ; SERVE AS A HARMLESS ENTRY MASK 
50 01 3c O1AC 21 MOVZWL #SS$_NORMAL,RO + RETURN SUCCESSFUL STATUS 
4 lat 164 RET 
1B0 2169 SSFAILMAIN: :SSFAIL MAIN LOGIC 
51 00000000" GF D i 19 MOVL  G*CTLSGL_PCB.R1 [GET PCB ADDRESS 
— Al 65 01B7 217 TSTW BCBSW_ATRCNT (RT) ;MUTEX COUNT ZERO? 
12 O1BA 217 BNEQ 20$ IF NEQ NO 
02 EF O1BC 217 EXTZV #PSLSV_CURMOD,#PSL$S_CURMOD,- ;EXTRACT PREVIOUS MODE FROM 
7E 04 IBF 217% 4(SP) ,=(SP) sSAVED PSL 
6 0 co Ice 175 ADDL  #PCBSV_SSFEXC, (SP) tADD IN BASE BIT NUMBER 
1224 a1 BE €1 O1C 1% BBC (SP)+,PCBSL_ cee eht). 10$ :1F CLEAR, FAILURE EXCEPTION DISABLED 
7E DC OCA 217 MOVPSL (SP) *GET CURRENT PSL 
BE 6— O02 1 FF 1¢C 178 EXTZV  #PSLSV_CURMOD ,#PSLS$S_ cURMOD (SP), (SP)+ :IF CURRENT MODE IS 
0 2 0101 217 NEQ 5$ ; Bt KERNEL, THEN BRANCH 
1D3 218 SETIPL #0 [FORCE IPL f0 0 FOR ERROR PATH 
00000000'EF 17 0106 2182 5$: P EXESSSFAIL [GENERATE SYSTEM SERVICE FAILURE EXCEPTION 
02 01DC 2183 10$: REI SAND RETURN FROM SERVICE WITH ERROR STATUS 
1 050, 10 EF 9100 184 20$:  EXTZV #PSLSV. LPL #PSL$S_IPL,- :EXTRACT PREVIOUS IPL FROM 
02 BE 01 SiES 1 : CMPL = (SP) +, niPL$ _ASTDEL [TEST IF AT ELEVATED IPL 
Fe o18 IEG 1 BGEG 10% :IF SO DO NOT BUGCHECK 
iE 188 BUG_CHECK MTXCNTNONZ,FATAL ‘MUTEX COUNT NONZERO AT SERVICE EXIT 
QiEC 201 : UPDSECW = UPDATE SECTION AND WAIT COMPOSITE SERVICE 
gieC 08 : .ENABL LSB 
O1EC 2205 EXESUPDSECW: 
001E '8F O1EC 2206 CHMK - I[*#UPDSEC ;UPDATE THE SECTION 
22 50 +€9 iF 07 BLBC ~— RO, 408 ‘BRANCH IF ERROR 
52. 50 OIF 08 MOVL  RO.R2 SSAVE STATUS FROM UPDSEC 
O1F6 2210 A UPDSECS_EFN+4 EQ UPDSEC$_10SB 
7E 14 AC 7D O1F6 2211 MOVa UPDSECS_EFNCAP) ,~(SP) TPUSHL IOSB(AP), PUSHL EFN(AP) 
oC 11 IFA 1 0$ :SYNCHRONIZE EFN AND IOSB 
abs 16 : COMMON WAIT CODE FOR SGETDVIW, SGETJPIW, SGETSYIW, SSNDJBCW SYSTEM SERVICES 
iF 1 : INPUTS: 
1FC 18 : RO = STATUS FROM THE NON-WAITING VERSION OF THE SERVICE 
1FC 2219 : EFN(AP) = EVENT FLAG 
IFC 9 ; IOSB(AP) = 1/0 STATUS BLOCK ADDRESS 
00000004 O1FC é F GETJPI_SYNCH_MASK = “M<R2> sREGISTERS USED By THIS CODE 
1FC [OTHER THAN RO AN 
1FC 4 GETJPI_SYNCH: 
16 50 €9 O1FC 5 BLBC RO. 408 :BRANCH IF ERROR FROM ORIGINAL SERVICE 
52 50 DO OFF é MOVL  RO.R SSAVE STATUS FROM ORIGINAL SERVICE 
: ASSUME GETJPI$_I0SB EQ GETDVI$_10SB 
ASSUME GETJPI$~10SB EQ GETSYI$-10SB 
0 ASSUME GETJPI$~10SB EQ SNDJBC$~10SB 
14 AC DD 1 PUSHL GETJPI$~10SB(AP) :GET I10SB PARAMETER 


Re ET eT ey 
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ILLEGAL CHME OR CHMK CODE VALUE HANDLING SYS.SRCICMODSSDSP.MAR; 1 (1) V 
04 AC DD PUSHL GETJPI$_EFN(AP) :GET EVENT FLAG PARAMETER 
00000000 ' GF Fe 3 i 20$: CALLS #2,G*SYSSSYNCH :WAIT FOR EFN AND jose TO BE SET 
50 : 56 : abyL Ro. 8 OTHERWISE RESTORE ORIGINAL STATUS 
be : 40S: RET : 
-DSABL LSB 


ure TO REAL SYSTEM SERVICE ENTRY POINT ARE DEFINED HERE IF THE CASE 
TABLE WON'T REACH 


THESE ARE FOR USE WITHIN nis roms ONLY = NOT GLOBAL ENTRY POINTS 
ENTRY MASKS ARE PLACEHOLDERS ONL 


Pies ee Ge Oe Oe Oe ee 


EYESIMGACT: ; IMAGE ACTIVATION 
0009 . WORD 
00000002"EF 1 EXESSIMGACT + 2 
EXESASCTOID: ; ASCII TO IDENTIFIER CONVERSION 
0000 . WORD 
17 JMP EXESSASCTOID + 2 
EXESF INISH. RDB: ; FINISH RDB CONTEXT STREAM 
JMP EXESSFINISH_RDB + 2 
EXESIDTOASC: ; IDENTIFIER TO ASCII CONVERSION 


0099 
Q00000002"EF 1 JMP EXESSIDTOASC + 2 


KCASMAX=KCASCTR=2 


WOK VUIWNINI —$ 9 ODNOAUE WN 0 OONOUS Wh O00 


SDAA AAA DA AAI BP PPE EE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
16 
19 
18 
1E 
+ 
00000002’ EF 6 
6 
0099 : 
Q00000002"EF 1 : 
6 
6 
6 
6 
6 
6 
36 


00000055 : 
03 


00000022 RCASMAX=RCASCTR=<1+RCASMIN> 
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-SBTTL EXESLDB_SYNCH = Synchronize Loadable Services 


EXESLDB_SYNCH = Synchronize Loadable Service 


This routine performs a S$SYNCH service in the mode of the 
caller of a loadable service 


Inputs: 
RO - Main Service Status 
(SP) - 1088 or ument number 
4(SP) = tenes ag argument “number 
(FP) - Service Call Frame 
Outputs: 
RO > Status Code 


Calling sequen ce: 
@#EXESLDB_SYNCH 


Returns Via: 
RET instruction 


; 
: 
; 
° 
; 
; 
. 
; 
. 
Py 
* 
° 
° 
- 
; 
° 
° 
. 
‘ 
; 
P 


ERESLOD_veyies 


MOVL 4(SP),RO 


et argument offset 
PUSHL Cap) CROJ 
BRB 20$ 


arah I0SB address 


2E— 50 LBC RO,50$ ; get out if service had error 
50 PUSHL R 3 Save service status 
04 AE 6C CMPW (AP) ,4(SP) 3 was an 1958 soest ted 
09 BLSS 10$ : branch if not 


-o°o-acom 
—GTO0-0 0 


10$: CLRL -(SP) : no IOSB so pass 0 to synch 
20S: CMPW (AP) ,12(SP) 


8 ; was an EFN specified? 

09 19 BLSS 30$ : branch if not 

50 OC AE 00 MOVL 12(SP) ,RO 3; get ar nent offset 
6C40 OD PUSHL  (AP)CROJ > push EFN number 
02 BRB 408 
7E 04 30$: CLRL -(SP) : no EFN so pass 0 
00000000' gf o F 40$: CALLS #2 A ceca ; call synch system service 

D MOVL (SP) + : restore main service status 


50$: RET 


WM—§ SD OD NAW EWN $$ 9 OD NAU EWN 0 OD NAUE WIN $0 OD NAUE WN OD NOULS WW 
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MODE SYSTEM SERVICE DISP 


= CHANGE 
09 
20 
04 
00 
00 
00 
00 
00 
OOOFFC 
eeereree 
eeererer 


U_MASK 
MASK 


CHKPRO_MASK 
CJFSKCASCTR 


CANTIM_MASK 
CLOSE 


CANWAK 
CANWAK 
7 


CLRAS 
CLREF 
CLREF_MASK 


we 
yy 
2 
as 
Yu 
a 
Wn 
23 
Se 
~ 
wm 


CANCEL 
CANE XH 
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BVVVOVYV VV VV BIB YVYV VV VB BBV VB VB VV VV VV VV VV VU VUE VU UVYVVOVOV VV VB VUVUUYUY 
ooo eee e esses sess esses sss sss sisi sisi sisiisissss sisi ssi gig, 
BVQVVO8 8 VOB VV 9 BB B99 BOBO BBV BBO OB VB BOOB BOO OOOO VE B VV VVYVUUUY 


110 
CMODSSDSP ~ CHANGE MODE SYSTEM SERVICE DISPATCHER 15-SEP-1984 23:53: A ro V04-00 Page 45 
-SEP=1984 (2) 


5 X/VMS Mac 
Symbol table 23:39 LEYS SRCTEMODSSDSP. MAR: 1 2 
CMKSC_WFLOR = E DEASJNL_INT = rtd 
CMKRNC = f DEASJNL_INT_MASK s 0 
CMKRNL_MASK = DEASJNL”-MASR = FF 
N OE DEF_MASR s oe 
CNTREG_MASK = FC DELETE = 1 
COMPS I 7ZE z 9 DELETE_MASK = FFC 
COMPSTRT = R 08 DELJNL = 4 of 
CONJNLF = 403 DELJNL_MASK = 
CONJNLF _MASK = 10 DELLNM = 51 
= 1D DELLNM_MASK = FFC 
CONNECT_MASK = FFC DELLOG_MASK = 00 M4 
= 4 eA DELMBX = 8 ot 
CONUIC_MASK z 0010 DELMBX_MASK 2 ¢ 
REA = OO1E DELPR = 00000019 
CREATE_MASK = aa DELPRC_MASK = 00 ore 
R = 0000402 DELTV = QOQ0001A 
CRE JNL_MASK = 99908) DELTVA_MASK = 00 SoOrS 
R = 0000005 DEQ = 00000049 
CRELNM_MASK = oppor DEQ_ MASK = QOOOOFFC 
CRELNT = 0000004F DERE = 00000041 
CRELNT_MASK = QOOOOFFC DERLMB_MASK 2 ae aiek 8 
CRELOG_MASK = 000001FC DGBLSC = pogNgie 
CREMBX = 00000010 DGBLSC_MASK = 000007FC 
CREMBX_MASK = as oa DISCONNECT = 0000001F 
CRENWV = 0000403 DISCONNECT_MASK = QOOOOFFC 
CRENWV_MASK = 00000010 DISPLAY = 00000020 
CREPRC = 00000011 DISPLAY_MASK = QOOOOFFC 
CREPRC_MASK = BoB hb DNS DLCONP = 0000001C 
CRETVA = 0000001 DLCONP_MASK = 44 
CRETVA_MASK = 000001FC DLCEFC 2 8 00001D 
CRMPSC = 0000000A DLCEFC_MASK = OOOOOFFC 
CRMPSC_MASK = OOOOOFFC DMTJMD = Hott 
CTLSAL_CLICALBK tererere =X 08 DMTJMD = 0000402F 
CTLSGB_SSFILTER teereeeer XX 0 DMTJMDW_MASK = 00000 19 
CTLS$GL_ eeeneree = X= 05 DMTJMD_MASK = 0000001 
CTL$GL_RMSBASE eeeeeree§ = X 03 SPJNL = 00004030 
CTLSGL_USRCHME tenerere§ = § X 03 DSPJNL_MASK rs B80N0 
CTLS$GL_USRCHMK teeneneer§ X 05 ECASCTR = 000 et 
CTL$GQ- COMMON eeeeeere§ X 08 ECASE 0000088 R 03 
DACEFC = 00000013 ECASMAX = 0000000 
DACEF C_MASK s ait ENQ z 4's 
0 = O08 014 ENQ$_ACMODE z 4 2 
DALLOC_MASK = 000 A36 ENQ$_ASTADR = 00 1C 
A = o1 ENQS$_ASTPRM = 38 9 
DASSGN_MASK = FC ENQ$_BLKAS = 
CLAST s 16 ENQS_EFN = 00 $2 4 
DCLAST_MASK = * ENQ$_FLAGS = 19 
LCMH = e ENQ$_LKMODE = 0000 
DCLCMH_MASK s 0 19 ENQ$_LKSB = $ C 
DCLEXH = 1 ENQ$_NARGS = 
DCLEXH_MASK = 1¢ ENQ$_PARID = 1 
LR = 401 ENQ$_ PROT z ef 
DCLRUH_MASK = 9 7¢ ENQS”RESNAM = 4 
DCNJNLF = 3A ENQ MASK s FFC 
DCNJNLF _MASK s 0010 ENTER FY O2A 
D R = 4 ef ENTER_MASK = FFC 
DEAL JOR_MASK = 0 ERAPAT = 04E 
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CMODSSDS - CHANGE NODE SYSTEM SERVICE DISPATCHER 15-SEP-1984 24:53:36 YAK/VMS Wacro VO4-00 ‘3, 
Symbol Sable pe 
RENAME s 02D SETPRT " 
RENAME _ MASK : ads SETPRT MASK : is 
RESETRU_MASK : ze SETPRV MASK : Fe 
RESUME . C SETRUM_MASK ° | 
RESUME _ MASK : STRUM - 
Aye eae ® ; SETSEM_MASK : 10 
x 2 | : Ha 
sot ML ie oe SETSTK™ . 48 
wees" O00003SF ROB SETSTK_MASK ° i¢ 
RMSCAK STALL 8 8 535 He Suh : 
RMSRUHADLR " sr : i 
RMSRUHNDLR_MASK = 90000F FC SETSURAMASK : 
eat trae ret = BooOrE SNDAGE = 00000007 
nase oe = 90000805 RO SNDACC_ MASK . FFC 
aaecece 4 iB ROR SNDERR™ = 9000001F 
RMSUALT'® Booeses RC SNDERR_MASK = 9000005¢ 
RASUALT “10 $00830 RCO SND JBC = 00000001 
RASUOR TOON = Hoo0bEEE ROS SNDJBC$_ASTADR = 90000018 
ee ce Eig : BESS 
RMS "ERR 0000480 R s = 90000004 
le et SRR : BSS 
es = 00900028 SNDJBCS"ITMLS = 90000010 
= 0000008 SNDJBCS"NARGS = 9009000 
= b9p02019 SND JBC$~NULLARG = 0000000¢ 
austere ? JBC AAS = 000006 FC 
RUSTATUS_ MASK = oo00do7¢ SNDJBC = Sette 
1 ol ececceee OS SNDOPR_MASK : ° OF FC 
SCHDWK = 0000002¢ o¢ 
SCHDUK_MASK = 00 ase SNDSMB_MASK = 000 sf 
SFA . FFC SPACE_MASK - ° FFC 
SEtastoe D SRVEXIT 00056 R sé 
SY : ¢ SRVREI 000059 R 05 
sEIDBIRN ° oF §S$ ACCVIO ° 00¢ 
se reotk . FF SSS ILLSER ° 09 104 
SEIDEPROT = 09000080 88$~ INHCHME = 00000404 
eer oee n C SS$~ INHCHMK = $ 4CC 
SE Tepe hOT MASK - E $8$~ INSFARG : 114 
: = C SS$~ NORMAL s og 
SE Tet ghASK = a SS$" SYNCH = ry . 5 
SE TERY MASK : rt tH ee 1B0 R 03 
I . FF seueckeee 50 R 3 
elim eS SSVEXC . 031 
ie = ROOOOE SSVEXC_ MASK . FF 
SETIMR_MASK S WS Aa STARTRO > 401 
Had = BoobrE STARTRU_ MASK . ¢¢ 
SETPFM_MASK = 900006 ¢ STARTRU_ : 
Lays . SUSPND MASK . ¢ 
selpRin P : YwcheEE EEN ; 
SYNCHS7 10SB = 
SE TPR) MASK : 6 SYNCHS"NARGS = 
SETPRN_MASK = B0000%FC YSSEXTT ceeeeses GX 03 
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UNWIND "MASK 
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nitialization :00:00. :00:01. 

Initializati 29 00:00:00.07 0:00:01.88 
soanege processing 111 Ba: 3:9 51 0:00:05.35 
Pas 793 0:00:33.81 1 OE 8-¢0 
Symbol table sort 9 00: Ht fs g 0:00:09.34 
Pass 2 35 00:00:08. 00:00:25.65 
Symbol table output 78 B2 88! 62 Ba 80; 1.91 
Psect synopsis output 0 00:00: Be 0:00:00.04 
Cross-reference output 0 Bp B0: ‘ 8 88 +80 : 80-90 
Assembler run totals 1366 00:00:46.1 0:02:34. 


The working set gtere was 2700 pages. 
264510 bytes (517 pages) of virtual memory were used to buffer the intermediate 


There were 100 pages of symbol table space allocated to hold 1877 non-local and so" local symbols. 


5 source Lines were read in Pass 1, produc ing 53 object records in Pass 2. 
49 pages of virtual memory were used to define 45 macros. 
$ ewer ere eee eee e ee sees ew ence + 


! ; Macro library statistics ; 


Macro Library name 


~$25950UA28: fers. -OBJJLIB.MLB; 1 y 
_$255$DUA Megs spare « MLB; 2 4 
TOTALS (all Libraries) 0 


1236 GETS were required to define 30 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:CMODSSDSP/OBJ=OBJ$:CMODSSDSP MSRC$: CMODSSDSP/UPDATE=(ENHS: CMODSSDSP) +EXECML$/LIB 


CMODSSDSP “SEP-1984 253: AX/VMS Macro 
Psect synopsis =$eEn 382 §3:20339 Heys. SRCICMODSS 
became ara naam ane aed 
: Psect synopsis ! 
teow er meee nen cacme t 
PSECT name Allocation PSECT No. Attributes 
ABS 000 ( -»> 00 ¢ 0.) NOPIC USR CON ABS LCL ore NOEXE NORD 
SABSS$ ( ) 1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD 
YSCMODEX ¢ $3.2 § ( §°} NOPIC USR CON REL LCL NOSHR EXE R&D 
YSCMODE 1 ( 263.) ( -) NOPIC USR CON REL LCL NOSHR EXE R&D 
YSCMODEN ( -) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD 
YSCMODK g ( 618.3 5 ( 5.) NOPIC USR CON REL LCL NOSHR EXE RD 
YSCMODKX 00 : See 8 ( §.} NOPIC USR CON REL LCL NOSHR EXE R&D 
YSCMODKN 000057 ( 87.) 8 ( -) NOPIC USR CON REL LCL NOSHR EXE RD 
$000 OOOOADO ¢ 2560.) 08 ¢ 8.) NOPIC USR CON REL LCL NOSHR EXE RD 
oo wownmee 
: ; Performance indicators H 
Phase Page faults CPU Time Elapsed Time 


cc 


v04-00 ve 
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